Cacher is the code snippet organizer for pro developers

Sub FillInEmptyCellWithAdjacent()
Dim Cell As Range
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'written by Angelina Teneva, September 2016
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

'copy to column
For Each Cell In ActiveSheet.Range("AB2:AB" & ActiveSheet.UsedRange.Rows.Count)

Cell.Activate
On Error Resume Next

    If ActiveCell.Value <> 0 And Cells(ActiveCell.row, 25) = 0 Then ActiveCell.Copy Cells(ActiveCell.row, 25)
    If IsEmpty(ActiveCell) Or ActiveCell.text = "" And Cells(ActiveCell.row, 44).text <> "#N/A" Then ActiveCell.Value = Cells(ActiveCell.row, 44)

Next Cell

End Sub