Myujth

I have a working macro that hides/unhides specific columns based off specific values in Column B. I also want to add another trigger that takes the user to the most recently used row. Below is my attempt.

Private Sub Worksheet_Change(ByVal Target As Range)

 If Not Intersect(Target, Range("B:B")) Is Nothing Then
 On Error GoTo safe_exit
 Application.EnableEvents = False
 Dim t As Range
 For Each t In Intersect(Target, Range("B:B"))
 Select Case (t.Value)
 Case "A"
 Columns("B:BP").EntireColumn.Hidden = False
 Columns("H:BL").EntireColumn.Hidden = True
 Case "B"
 Columns("B:BP").EntireColumn.Hidden = False
 Columns("F:G").EntireColumn.Hidden = True
 Columns("P:BP").EntireColumn.Hidden = True 
 End Select
 Next t

 End If

safe_exit:
 Application.EnableEvents = True

 'Go to last cell in column B
 With ActiveSheet
 Range("B5").Select
 Selection.End(xlDown).Select
 End With

End Sub

Use Select as little as possible, and replace the last section starting with 'Go to last cell in column B with something like this, except moving it inside the If...End If.

With Me
 .Cells(.Rows.Count, 2).End(xlUp).Select
End With

Perhaps I misread your question from the other answer - and if so, I will be more than happy to delete this one.

You can simply add a variable that will track this for you and persist as long as you keep Excel open.

Private lastUsedRng As Range

Private Sub Worksheet_Change(ByVal Target As Range)

 Set lastUsedRng = Target

 . . .

...that takes the user to the most recently used row

You can accomplish this with

lastUsedRng.Select