Select current row, add highlight, then select next cell in same column

[linesite]

I have about 350 rows of data that I need to reconcile manually with another data source. I'm having difficulty writing VBA to select and highlight the current row (cell A2 to E2) based on the cell selection (A2) then select the cell (A3) after the highlight application. Can someone help? This code highlights the entire table--I want to examine each row individually line-by-line add highlight then go to the next row in column A to research my source data before adding highlight to that row based on my research.

Sub Highlight_Active_Row()

Dim myWB As Workbook
Dim myWS As Worksheet
Dim myFirstCell As Range
Dim myLastCell As Range
Dim myRange As Range

Set myWB = ActiveWorkbook
Set myWS = myWB.ActiveSheet
Set myFirstCell = Application.ActiveCell
Set myLastCell = myWS.Cells(Application.ActiveCell, 5)
Set myRange = Range(myFirstCell, myLastCell)

myRange.Interior.ColorIndex = 37

End Sub

Date	No.	Description	Payment	Credit
10/30/2020​		Transfer		10​
10/30/2020​		Transfer	25​
10/30/2020​		Transfer	25​
10/30/2020​		Transfer	25​
10/30/2020​		Transfer	25​

 

[GWteB]

How about ...

Sub Highlight_Active_Row_R2()

    Dim rng As Range
   
    Set rng = Selection
    If rng.Count = 1 Then
        rng.Resize(1, 5).Interior.ColorIndex = 37
        rng.Offset(1).Select
    End If
End Sub

 

[linesite]

Yes, it works--great thank you very much--I appreciate your help!

 

[GWteB]

You are welcome and thanks for letting me know.