Snasui Excel Forum

Code: Select all

Sub test1()

Dim ws As Worksheet
Dim r As Integer
Dim rn As Range

Set ws = ActiveSheet

r = ws.Range("A" & ws.Rows.Count).End(xlUp).Row

Worksheets(1).Range("C15").Copy _
Worksheets(2).Range("A15")


Worksheets(1).Range("M15").Copy _
Worksheets(2).Range("K15")


Worksheets(1).Range("M20").Copy _
Worksheets(2).Range("K20")


Worksheets(1).Range("C20").Copy _
Worksheets(2).Range("A20")

Worksheets(2).Select
ActiveSheet.Select


MsgBox "COMPLETED"

End Sub

Code: Select all

Sub test()
    Dim rs, rt, i%
    rs = Array("a1", "b10", "c3", "d9", "a8")
    rt = Array("e1", "d1", "c1", "b1", "a1")
    For i = 0 To UBound(rt)
        Sheets(2).Range(rt(i)) = Sheets(1).Range(rs(i))
    Next i
    MsgBox "COMPLETED"
End Sub