VBA to copy paste data to specific cell

[Akbarov]

Hey community,

I wanna know how can i use following VBA to copy paste data to specific range. ( from TRX u18:cu18 to DT sheey D1 )

Sub save1()  Application.ScreenUpdating = False
  Dim copySheet As Worksheet
  Dim pasteSheet As Worksheet


  Set copySheet = Worksheets("DT")
  Set pasteSheet = Worksheets("TRX")


  copySheet.Range("u18:cu18").Copy
  pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
  Application.CutCopyMode = False
  Application.ScreenUpdating = True


End Sub

 

[Fluff]

Assuming you mean copy from DT to TRX, try

pasteSheet.range("D1").PasteSpecial xlPasteValues

 

[Akbarov]

Hi thanks for reply, can you please tell me how can i paste to next free cell in D ? :/ let's say first time to D1 next time to D2

 

[Fluff]

Try

pasteSheet.range("D"&Rows.Count).end(xlup).offset(1).PasteSpecial xlPasteValues