copy sheet1 to sheet2

[Ks1102]

Hi, experts

Can u help me again to have code for copy and paste from sheet1 which just only column B2, C2, G2, H2 down to last row then paste at sheet2 column A ??

Sample:
Sheet2 COL A = Sheet1 COL B
Sheet2 COL B = Sheet1 COL C
Sheet2 COL B = Sheet1 COL G
Sheet2 COL D = Sheet1 COL H

Thank ^.^

 

[Sektor]

Try this.

Sub CCC()
    With Sheets("Sheet1")
        .Columns("B:B").Copy Sheets("Sheet2").Range("A1")
        .Columns("C:C").Copy Sheets("Sheet2").Range("B1")
        .Columns("G:G").Copy Sheets("Sheet2").Range("C1")
        .Columns("H:H").Copy Sheets("Sheet2").Range("D1")
    End With
End Sub

 

[Ks1102]

Try this.

Sub CCC()
    With Sheets("Sheet1")
        .Columns("B:B").Copy Sheets("Sheet2").Range("A1")
        .Columns("C:C").Copy Sheets("Sheet2").Range("B1")
        .Columns("G:G").Copy Sheets("Sheet2").Range("C1")
        .Columns("H:H").Copy Sheets("Sheet2").Range("D1")
    End With
End Sub

Thanks VV