How do I goto column B in the current row using VBA?

[LilacSpokane]

I need to enter the text "The End" at the end of the worksheet in column B.
I am using ActiveCell.SpecialCells(xlLastCell).Select to find the last cell
in the worksheet. Currently that is cell F379, on my next report the column
may change. Whatever column the last cell turns out to be, I need to enter
"The End" in the last row of Column B. Is there VBA code to goto column B in
the current row?
Thank you
L

 

[Charles Chickering]

There are several ways, this would be an easy one:
Range("B" & ActiveCell.Row) = "The End"

and if you want to avoid using the .Select method (a good idea to improve
speed) then try this:
Range("B" & ActiveCell.SpecialCells(xlLastCell).Row) = "The End"

 

[Jim Thomlinson]

xlLastCell is not always accurate and generally speaking you don't want to
use it. Try something like this...

Sub test()
Cells(LastRow, "B").Value = "The End"
End Sub

Public Function LastRow(Optional ByVal wks As Worksheet) As Long

If wks Is Nothing Then Set wks = ActiveSheet
On Error Resume Next
LastRow = wks.Cells.Find(What:="*", _
After:=wks.Range("A1"), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
If LastRow = 0 Then LastRow = 1

End Function