Unfortunately I am having problems, but I think I am close. Any help would be appreciated.
So, I have tried to dreate a loop to go down column B and if a cell in Column "B" is anything other than a zero, copy the number from cell "I" and paste it in cell "N".
Dim FirstCell As Range
Dim SecondCell As Range
Dim FirstTargetCell As Range
Dim i As Integer
Set FirstCell = Sheets("January").Range("B2")
Set SecondCell = Sheets("January").Range("I2")
Set FirstTargetCell = Sheets("January").Range("N2")
i = 0
If ActiveCell = 0 Then
''''''''''''''This next line is the issue. If cell B is a zero, do nothing and go to the next cell in B. Okay so far, now if cell B is anything other than a zero, take the number from cell I and put it in cell N. It is not doing it correctly and number are not in the right cell in cell N.
FirstTargetCell.Offset(i, 0).Value = SecondCell.Offset(i, 0).Value
i = i + 1
'''''''''''''The next lines are fine.
Loop Until FirstCell.Offset(i, 0).Value = ""