Ask a question
Dim lRow, lRow2 As Integer
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name = "Sheet1" Then GoTo Nxt
lRow = Sheets(ws.Name).Range("B" & Rows.Count).End(xlUp).Row
Sheets(ws.Name).Range("B1:E" & lRow).Copy
lRow2 = Sheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Row
Sheets("Sheet1").Range("B" & lRow2).PasteSpecial
Application.CutCopyMode = False
The Best of CCM in Your Inbox
The information gathered is for Communitic International to ensure the sending of the newsletter.
The information will be used subject to terms and conditions, for advertising purposes.
You reserve the right to access and change your personal data, aswell as the right to request its deletion within the limits permitted by law.