Need to check is cells are empty before pasting

This is still clear as mud for me. Maybe this will explain things for you

Sub Example()
Dim row_number As Long, num_blanks As Long
Dim rng As Range

'in this situation Range B8 is 12
row_number = Sheets("Data").Range("B8").Value + 3

'this will resize your range to encorporate columns B to GG for that given row_number
Set rng = Sheets("Current").Cells(row_number, 2).Resize(1, 188)

'proof it works
MsgBox rng.Address


'to see if there is at least 1 empty cell in rng
num_blanks = Application.WorksheetFunction.CountBlank(rng)

'proof it works
If Application.WorksheetFunction.CountBlank(rng) > 0 Then
    MsgBox ("There are " & num_blanks & " blank cells in Range" & rng.Address)
Else
    MsgBox ("There are no blanks in Range" & rng.Address)
End If
 
End Sub