MAKRO: kopioi toiseen taulukkoon ja muuta sarakej

ei ihan vastaa toi solualue taulukko2;ssa, mutta ei väliä. Muuta koodissa nimet ja alueet sopiviksi.

Sub Siirrä()
Dim vika As Long
vika = Worksheets("Sheet2").Range("B65536").End(xlUp).Row 1
With Worksheets("Sheet1")
Union(.Range("B4:D100"), .Range("J4:J100")).Copy Worksheets("Sheet2").Range("B" & vika)
Union(.Range("G4:I100"), .Range("K4:O100")).Copy Worksheets("Sheet2").Range("F" & vika)
End With
End Sub

keep EXCELing
@Kunde

ajattelin, että pitäisi kyllä olla helpompikin keino säädellä kopioitavan alueen sarakkeiden paikkaa ja määrää...

Sub Siirrä()
Dim vika As Long
Dim ar As Variant

vika = Worksheets("Sheet2").Range("B65536").End(xlUp).Row 1
With Sheet1.Range("B4:O100")
'arrayssa voit määritellä kopioitavien sarakkeiden järjestyksen ja samalla määrän ;-) ...
ar = Application.Index(.Value, Evaluate("row(1:100" & ")"), Array(1, 2, 3, 8, 6, 7, 9, 10, 11, 12, 13, 14))
Worksheets("Sheet2").Range("B" & vika).Resize(UBound(ar), 12) = ar
End With
End Sub

Keep EXCELing
@Kunde