kopyalama makrosu yardımı

[işsiz123]

arkadaşlar merhaba aşağıdaki makro "veri" sayfasından alan bilgileri "istenilen sonuçlar" sayfasına yapıştırıyor ancak mause=("fare") hangi hücrede ise oradan itibaren yapıştırıyor benim istediğim makro her zaman c:c sütununa yapıştırsın
örnek olarak fare d2 üzerindeyse oradan itibaren yapıştırıyor ama ben c2 sütununa yapışmasını istemiştim sonra bir hücre kaydırmış oluyor

Sub Makro3()
'
' Makro3 Makro
'

Sheets("İSTENİLEN SONUÇLAR").Select
    Sheets("VERİ").Visible = True
    Sheets("VERİ").Select
    Selection.Copy
    Sheets("İSTENİLEN SONUÇLAR").Select
    Selection.End(xlDown).Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
         Application.CutCopyMode = False
    ActiveCell.Select
    Sheets("VERİ").Select
    ActiveWindow.SelectedSheets.Visible = False
    ActiveCell.Select
End Sub

Saygılarımla...

 

[Orion1]

ActiveCell.Offset(1, 0).Range("A1").Select

Yukarıdaki satırı aşağıdaki ile değiştirin.

Range("C2").Select