VBA code to copy/paste data in adjacent cell when the column of cells have a specific value

[Mothi]

I would like to ask the community for a way for me to VBA code my sheet 'macro' to look at all the '0' value cells in column B. Then copy the adjacent cells in column C and past in Column D.
This would help me to separate all the zero return stocks from the positive and negative returns. The problem I face is that the zero return stocks will later be sorted by returns and these zero returns are messing with my VLOOKUP to identify the stock code later on.

 

[ranman256]

Public Sub aMacro1()
Range("B2").Select
While ActiveCell.Value <> ""
   If ActiveCell.Value = 0 Then
      ActiveCell.Offset(0, 2).Value = ActiveCell.Offset(0, 1).Value
   End If
   
   ActiveCell.Offset(1, 0).Select   'next row
Wend
End Sub

 

[Mothi]

Thanks m8! this code worked like a charm