austenr
11-10-2005, 09:46 AM
trying to use offset in the code below to cut the range value and paste it up 2 cells. Also, can I incorporate if cells = anything alpha clear contents. Thanks
Sub moveSocial()
Dim myrange As Variant
For Each myrange In Range("A3:A29277")
If IsNumeric(myrange) Then
Cells.myrange.Copy Destination:=Cells(myrange).Offset(0, -2)
End If
Next myrange
End Sub
Sub moveSocial()
Dim myrange As Variant
For Each myrange In Range("A3:A29277")
If IsNumeric(myrange) Then
Cells.myrange.Copy Destination:=Cells(myrange).Offset(0, -2)
End If
Next myrange
End Sub