If text conditions met in first empty row of Sheet A Col B then go to Sheet B specified column & row

[Ironman]

Hi

I have this row of code

If Cells(Target.Row, "B").Value = "OTHER (IB)" Or Cells(Target.Row, "B").Value = "OTHER (OB)" Or Cells(Target.Row, "B").Value = "OTHER (W)" Or Cells(Target.Row, "B").Value = "OTHER (T)" Or Cells(Target.Row, "B").Value = "REST" Or Cells(Target.Row, "B").Value = "" Then Exit Sub

Basically, what I'm looking for is a Worksheet_Change event that does this:

- After any value other than the above values is entered in Col B of the first empty row of Sheet 'Training Log' then

- I get a message box saying "Enter mileage in Daily Tracking Sheet" (I OK the message box) and then

- The active sheet is 'Daily Tracking' and the active cell is calculated in the following code:

Dim Rowx As Variant
 Application.EnableEvents = False

 Rowx = Evaluate("=MATCH(MONTH(TODAY()),MONTH($A$1:$A$367),0)")
 If Rowx < 32 Then
   ActiveWindow.ScrollRow = 1
 Else
   ActiveWindow.ScrollRow = Rowx
 End If
Application.EnableEvents = True
Application.ScreenUpdating = True

Many thanks!

 

[Ironman]

Can the formula

=MATCH(MONTH(TODAY()),MONTH($A$1:$A$367),0)

be modified, so instead of locating the first day of the current month, it locates the first empty cell in the current month?