Copy From 1 Workbook To Others

[juan4412]

Hello 1st post so apalogy if I miss a step.

I am needing to find the last cell in column B with data, then go down 4 more cells. How can this be achieved?

[mancubus]

Dim LastCellB As Range, LastCellBDown4Rows As Range

Set LastCellB = Worksheets("MySheet").Cells(Rows.Count, "B").End(xlUp)
Set LastCellBDown4Rows = Worksheets("MySheet").Cells(Rows.Count, "B").End(xlUp).Offset(4,0)


change "MySheet" to your worksheet name.

and what are you going to do with these cells?

[juan4412]

I need to get the location to enter a footer that is being added. Some confidentiality jargon.

[mancubus]

then

Worksheets("MySheet").Cells(Rows.Count, "B").End(xlUp).Offset(4).Value = "Footer Text Here"