You can find the last row, then set the ranges to equal each other
Sub do_it()
Dim sh As Worksheet, ws As Worksheet
Dim LstRw As Long
Dim rng1 As Range, rng2 As Range
Dim pRng1 As Range, pRng2 As Range
Set sh = Sheets("EmployeeData")
Set ws = Sheets("TrainingData")
With sh
LstRw = .Cells(.Rows.Count, "A").End(xlUp).Row
Set rng1 = .Range("A1:A" & LstRw)
Set rng2 = .Range("BH1:BR" & LstRw)
End With
With ws
.Range("A2:L120").ClearContents
Set pRng1 = .Range("A3:A" & LstRw + 2)
Set pRng2 = .Range("B3:L" & LstRw + 2)
End With
pRng1.Value = rng1.Value
pRng2.Value = rng2.Value
End Sub
Bookmarks