Pasting in empty cells based on another column VBA

[Xcels]

Hello,

My VBA code is as below:

With Cells(Rows.Count, "G").End(xlUp)
Dim lr As Long
lr = Range("B" & Rows.Count).End(xlUp).Row
Dim selection1 As Range
Dim selection2 As Range
Set selection1 = Range(.Cells, .Offset(WorksheetFunction.Max(-.Row + 1, -3)))
selection1.Copy
Set selection2 = Range("G1:G" & lr).SpecialCells(xlCellTypeBlanks)
selection2.PasteSpecial

End With


I am trying to select and copy the last 4 cells in column G and fill down the column based on the same length of column B.

I would appreciate the help!

Thanks!