fiter blank cell and copy paste from another cell

[manoj_arsul]

I need solution for below condition in VBA
eg.

1) filter to Column AI for "Blank"
2) filter to column G for "Storage"
3) and print that storage in selected blank cell of column AI

 

[Yongle]

To replace every blank cell in column AI with the value in column G ...

    Dim cel As Range
    For Each cel In Range("AI1", Range("AI" & Rows.Count).End(xlUp))
        If cel = "" Then cel = cel.Offset(, -28)
    Next