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

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