Filter for blanks

Hi

I would like to filter column D for cell that are blank .

Then Once is filtered I would like to copy column B to Column A

Any advise would be greatly apreociated

Try1.xlsx

Sub Filter_Blanks()
Dim ws As Worksheet:    Set ws = Sheets("MB52")
Dim c As Range

Application.ScreenUpdating = False

With ws
    .AutoFilterMode = False
    .Range("D1:D" & .Range("D" & Rows.Count).End(xlUp).Row).AutoFilter 1, ""
    For Each c In .Range("B2:B" & .Range("B" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible)
        c.Offset(, -1) = c
    Next c
    .AutoFilterMode = False
End With

Application.ScreenUpdating = True

End Sub