Copy from Array and paste to different array

[AbdulkareemAlhassni]

Hi guys,

what am i doing wrong here ?

Private Sub CommandButton1_Click99()
Dim LR As Long, i As Long, cls
cls = Array("B2", "D2", "C2")


With Sheets("Sheet2")
LR = WorksheetFunction.Max(2, .Range(Array("H1", "K1", "Z1")))
For i = LBound(cls) To UBound(cls)
Range(cls(i)).Copy Destination:=.Cells(LR, i + 1)
Next i
End With
End Sub

Private Sub CommandButton1_Click99()
Dim LR As Long, i As Long, cls
cls = Array("B2", "D2", "C2")


With Sheets("Sheet2")
    LR = WorksheetFunction.Max(2, .Range(Array("H1", "K1", "Z1")))
    For i = LBound(cls) To UBound(cls)
        Range(cls(i)).Copy Destination:=.Cells(LR, i + 1)
    Next i
End With
End Sub

I want to copy from specified cells and paste to specified cells

 

[Fluff]

Maybe

    LR = WorksheetFunction.Max(2, .Range("H1, K1, Z1"))

 

[AbdulkareemAlhassni]

Maybe

    LR = WorksheetFunction.Max(2, .Range("H1, K1, Z1"))

its not doing what i want,

Private Sub CommandButton1_Click99()Dim LR As Long, i As Long, cls
cls = Array("B2", "D2", "C2")




With Sheets("Sheet2")
    For i = LBound(cls) To UBound(cls)
        Range(cls(i)).Copy Destination:=.Cells("F2,G2,H2")
    Next i
End With
End Sub

i want to copy B2 and D2 and C2 from the first sheet

to another sheet cells H2, K2, Z2

 

[Fluff]

In that case try

Private Sub CommandButton1_Click99()
Dim LR As Long, i As Long, cls
cls = Array("B2", "F2", "D2", "G2", "C2", "H2")




With Sheets("Sheet2")
    For i = LBound(cls) To UBound(cls) Step 2
        Range(cls(i)).Copy Destination:=.Range(cls(i + 1))
    Next i
End With
End Sub