son satırı bulmada hata verdi

[kenangulal]

merhaba, kalın harfle yazdığım kısımda hata veriyor amacım aynı sayfa üzerinde c, v, cc sutunlarına veri yazdırmak bunun için son satırı buldurmak istedim fakat hata verdi yardımcı olabilirmisiniz.
syg.

Sub Macro1ıfsmüşteri()
'
' Macro1ıfsmüşteri Macro
' Macro recorded 16.04.2006 by kgulal

Sheets("kopya").Select
Range("C6:C21").Select
Selection.Copy
Sheets("SAATLİK MÜŞTERİ_IFS ").Select
[c65536].End(3).Row

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("kopya").Select
Range("D621").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("SAATLİK MÜŞTERİ_IFS ").Select
[v65536].End(3).Row
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("kopya").Select
Columns("G:G").ColumnWidth = 18.57
Range("G6:G21").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("SAATLİK MÜŞTERİ_IFS ").Select
[cc65536].End(3).Row
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("kopya").Select
Range("A1").Select
Application.CutCopyMode = False
End Sub

 

[veyselemre]

[c65536].End(3).SELECT

olarak kullanırsanız en son dolu hücrenin üzerine yazar,
eğer sonraki boşluğa yazdırmak istiyorsanız,
Selection.Offset(1, 0).Select

komutunu da altına ekleyebilirsiniz.

 

[kenangulal]

sayın veyselemre ilginize teşekkür ederim sizinkinden sonra ,sayın leventm'in aşağıdaki kodunu buldum her ikisine işimi fazlasıyla gördü,teşekkürler.
syg.

sat = Worksheets("sheet1").[a65536].End(xlUp).Row + 1
Sheets("sheet1").Range("a" & sat).PasteSpecial Paste:=xlPasteValues