Probably not. I have since changed it to the below and I can get it to work fine, except I still cannot get the line to see I want to use the value in cell AA1.
counter = 0
MyNum = 0
Do
MyNum = MyNum + 1
counter = counter + 1
ActiveCell.Range("A1:A1").Select
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Selection.delete Shift:=xlToLeft
ActiveCell.Offset(rowOffset:=-1, columnOffset:=0).Activate
Selection.Copy
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
ActiveSheet.Paste
Selection.End(xlUp).Select
Loop Until MyNum = 117
When I try to change the Loop Until MyNum = from 117 to AA1. I don't understand how to make MyNum reflect the value in cell AA1 I guess. Or should I be using a different method. I found this in the help file as using a Loop until condition becomes true method.