Sub CellToRight()
'moves to the right if active cell is empty
ActiveCell.Select
If ActiveCell = "" Then
MsgBox "Empty"
' your code
Else
MsgBox "Move to the next cell to the right"
ActiveCell.Offset(0, 1).Select
End If

End Sub

" wrote:

Hi

What my macro should do is move to the next cell to the right when the
current cell is occuiped.

sample of my data
A1 A2
C1