Sub Macro1()
ActiveCell = "=IF(ISNUMBER(ActiveCell)=FALSE,"""",ActiveCell)"
'ActiveCell.Offset(0, -1) = "=IF(ISNUMBER(ActiveCell.Offset(0, -1))=FALSE,"""",ActiveCell.Offset(0, -1))"
[R3].Copy
[R4:R11].Select
ActiveSheet.Paste
[R3].Select
Application.CutCopyMode = False
End Sub