Your technology certification is waiting. Enroll in Cloud Class ®
Dim ws As Worksheet
Dim lr As Long, cl As Long
Dim lrw As Long
Dim k As Long
Dim ws1 As Worksheet
Set ws = Sheets("13")
Application.ScreenUpdating = False
For k = 1 To 11
cl = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
lr = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
On Error Resume Next
If Err.Number = 91 Then lrw = 1
lrw = ws.Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
Range("A1:" & Cells(lr, cl).Address).Copy ws.Range("A" & lrw + 1)
Application.ScreenUpdating = True
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.