What should I add to the code below to cause it to skip a cell that contains a text string in the cell above it? I need it to only work on numbers in the cell above it.

If ActiveCell.Offset(rowoffset:=-1) <> "" Then
ActiveCell = ActiveCell.Offset(rowoffset:=-1) + 1
Application.SendKeys ("{Enter}")
End If

Thanks so much.

mikeburg