Sub test() Dim wsT As Worksheet With Workbooks("testing.xlsm") Set wsT = .Sheets("Sheet4") wsT.Cells(wsT.Rows.Count, "B").End(xlUp).Offset(1, 0).Re