Error on VBA Syntax (Copy several cells)

[yncip]

Hi,

I want to copy only selected cells on excel and paste it to another sheet (done in VB).
I just want to copy cells that are on columns (D,F,H:P)
I've tried this code below but keep showing error (I suspect error in syntax). Maybe someone could help me to find the error. Thanks!

Dim my_range As Range
Dim end As Integer


end = Range("B6").End(xlDown).Row
Set my_range = ThisWorkbook.Sheets("Plan Report").Range("D6" &":"& "D" & end, "F6" &":" & "F" & end, "H6" &":"& "H" & end)
my_range.copy

 

[Andrew Poulsom]

Try:

    Dim my_range As Range
    Dim LR As Long
    With ThisWorkbook.Sheets("Plan Report")
        LR = .Range("B6").End(xlDown).Row
        Set my_range = ThisWorkbook.Sheets("Plan Report").Range("D6:D" & LR & ",F6:F" & LR & ",H6:H" & LR)
        my_range.Copy
    End With