Snasui Excel Forum

Code: Select all

Private Sub Save_Ad_Click()
Dim lr As Long
With Sheets("Add01")
    lr = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A3:I500" & lr).Copy Sheets("DataA").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    .Range("A3:I500" & lr).Copy Sheets("Data").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End With

Code: Select all

With Sheets("Add01")
    lr = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A3:I500" & lr).Copy
    Sheets("DataA").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) _
        .PasteSpecial xlPasteValues
    .Range("A3:I500" & lr).Copy
    Sheets("Data").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) _
        .PasteSpecial xlPasteValues
End With