I am able to determine the last row in a spreadsheet and go to it using
ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Select,

what I want to be able to do is move 2 rows down and then in column A on
that row put the word line and column B put the word Ind.

Hope someone can help

Thanks

Nigel,

ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Select
ActiveCell.Offset(2, -1) = "Line"
ActiveCell.Offset(2, 0) = "Ind"

HTH

"Nigel" wrote:

I am able to determine the last row in a spreadsheet and go to it using
ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Select,

what I want to be able to do is move 2 rows down and then in column A on
that row put the word line and column B put the word Ind.

Hope someone can help

Thanks

One way:

With ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Offset(2, -1)
.Value = "line"
.Offset(0, 1).Value = "Ind"
End With

Note that it's almost never necessary to select a range in order to use
it.

In article ,
"Nigel" wrote:

I am able to determine the last row in a spreadsheet and go to it using
ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Select,

what I want to be able to do is move 2 rows down and then in column A on
that row put the word line and column B put the word Ind.

Hope someone can help

Thanks