V

#### VBNewbie

if next column 2 cell value is numeric and paste it to column 3. Also

i try to assign "Activecell" to the assign column where data to be cop

and paste. Hope someone in this forum may assist me to solve thi

problem.

'From (before modify):

Sub Loop()

Do :

If IsEmpty(ActiveCell) Then

If IsEmpty(ActiveCell.Offset(0, -1)) Then

ActiveCell.Value = ""

Else

ActiveCell.FormulaR1C1 = "=(RC[-2])"

End If

End If

ActiveCell.Offset(1, 0).Select

Loop Until IsEmpty(ActiveCell.Offset(0, -2))

End Sub

'to (after modify):

Sub Loop2()

Dim N As Integer

Dim Celcal1 As Integer

Dim cell1 As Object

Celcal1 = Range("A1").CurrentRegion.Rows.Count

For N = 1 To Celcal1

Set cell1 = Cells(N, 3)

Do

If IsEmpty(cell1) Then

If IsEmpty(cell1.Offset(0, -1)) Then

cell1.Value = ""

Else

cell1.FormulaR1C1 = "=(RC[-2])"

End If

End If

cell1.Offset(1, 0).Select

Loop Until IsEmpty(cell1.Offset(0, -2))

Next N

End Sub

:confused