Help fix my loop to fill in blank cells down a row

Ugh nevermind.

Sub mellowmarshall()
Dim x As String
On Error GoTo z
For Each cell In Range("A5:A50")
    If cell.Value = "" And cell.Offset(-1, 0) <> "" Then
        x = cell.Offset(-1, 0)
        cell.Select
                cell.Value = x
    End If
Next cell
            
z:
End Sub