Find first blank cell in column if rightmost cell is non blank

Hello,

I am trying to figure out how to select a blank cell if the cell next to it is a non-blank cell.

This is the code I have so far. It just finds the first blank cell in a column.

Sub FindBlank()

Dim FindBlankCell As Range
Set FindBlankCell = Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
FindBlankCell.Activate
End Sub

So what I am looking for is if a cell in Col B is a non blank, select the first non blank in Col A in the same row.

I will ultimately use this as a loop to paste copied data from another macro.

Thanks for the help!