XLtoRIGHT and Down - help

[p4nny]

Hi

Please could you help with my code. Keep getting an error

Sub test()'
With Sheets("Logistics")


 Dim wsDest As Worksheet


    Set wsDest = Sheets("test")


Range("C18", Cells(Selection.End(xlDown).Row, Selection.End(xlToRight).Column)).Copy


wsDest.Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial




End With


End Sub

My aim is select cell C18 to the last row within column C then XLToRight to select column D and Copy this to Sheet "Test"

 

[Fluff]

How about

Sub test()
   Dim wsDest As Worksheet
   
   Set wsDest = Sheets("test")
   With Sheets("Logistics")
      .Range("C18", .Range("C" & Rows.Count).End(xlUp).Offset(, 1)).copy
      wsDest.Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial
   End With
End Sub

 

[p4nny]

This works perfect, thank you

If I wished to apply to this to the activeworkbook, would I remove the "With Sheets("Logisitcs")" and use the wrap-around "For each sheet in activeworkbook."

 

[Fluff]

Yes, that's right