Snasui Excel Forum

Code: Select all

Sub Macro6()
    Range("G2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToLeft)).Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A1").Select
    ActiveSheet.Paste
End Sub

Code: Select all

Sub Macro6()
        Sheets("Sheet2").Range("A1").Resize(Range("B2", Range("G2").End(xlDown)).Rows.Count, 5).value = Range("B2", Range("G2").End(xlDown)).Value
End Sub