Seri Kopyalama Hakkında;

[AhmetGuven]

Merhaba,

Yapmak istediğim sayfa1 D sütununda adres var ise, sayfa1 F sütunundaki bilgileri Deneme sayfasının sayfa1 D sütunundaki adreslerine kopyalamak.

Sub Click()
Application.ScreenUpdating = False
Range("D3").Select
Selection.Copy
Sheets("Deneme").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sayfa1").Select
Range("F3").Select
Selection.Copy
Sheets("Deneme").Select
Range(Range("A1").Text).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sayfa1").Select
Application.ScreenUpdating = True
End Sub

Bir iki makro çalışması yaptım fakat iş biraz uzadı gibi. Daha kolay bir seri ile olabileceğini düşünüyorum.
Yardımlarınız için Şimdiden Teşekkürler.