Snasui Excel Forum

Code: Select all

Sub Macro()
    Dim A As Worksheet, B As Worksheet, l As Long
    
    l = Rows.Count
    Set A = Sheets("aaa")
    Set B = Sheets("bbb")
    
    A.Range("B2", A.Range("D2").End(xlDown)).Copy _
        B.Range("K" & l).End(xlUp).Offset(1, 0)
    
    A.Range("E2", A.Range("I2").End(xlDown)).Copy _
        B.Range("C" & l).End(xlUp).Offset(1, 0)
    
    A.Range("M2", A.Range("M2").End(xlDown)).Copy _
        B.Range("H" & l).End(xlUp).Offset(1, 0)

    A.Range("U2", A.Range("U2").End(xlDown)).Copy _
    B.Range("I" & l).End(xlUp).Offset(1, 0)
    
    B.Range(Range("J8").End(xlDown), _
        B.Range("K" & l).End(xlUp).Offset(0, -1)).FillDown
        
    B.Range(Range("B8").End(xlDown), _
        B.Range("C" & l).End(xlUp).Offset(0, -1)).FillDown
        
    If B.Range("A9") = "" Then B.Range("A9") = 1
        
    B.Range("A" & l).End(xlUp).AutoFill _
        Destination:=B.Range(Range("A" & l).End(xlUp), _
        B.Range("B" & l).End(xlUp).Offset(0, -1)), Type:=xlFillSeries

End Sub

Code: Select all

Private Sub CommandButton2_Click()
    Sheets("History_Tool").Select
    Range("B6:X100").Select
    Selection.Copy
    Sheets("ReportReturn").Select
    Range("B9").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

End Sub

Code: Select all

Private Sub CommandButton2_Click()
    Sheets("History_Tool").Range("B6:X100").Select
    Selection.Copy
    Sheets("ReportReturn").Select
    Range("B9").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub