So I've looked up different code and put together. This is the direction I'm going in. There is an error Any suggestions?? Maybe an easier way to do what I'm looking for. I'm stuck! Please help
Sub FindStoreNum()
Dim LSearchRow As Integer
Dim fndrng As Range
Dim StoreNum As Long
On Error GoTo Err_Execute
'Start search at row 2
LSearchRow = 2
While Len(Range("AD" & CStr(LSearchRow)).Value) > 0
'If Column AD is "Not Completed copy rows G:AA in that column
If Range("AD" & CStr(LSearchRow)).Value = "Not Completed" Then
'Set StoreNum to value of cell to the right of AD
StoreNum = ActiveCell.Offset(, 1).Value
Range("G:AA").Select
Selection.Copy
'Find StoreNum in the Sheet (Should be in Column D)
Set fndrng = .Cells.Find(What:=StoreNum, After:=ActiveCell, _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not fndrng Is Nothing Then
Range("D:D").Value = fndrng.Value
Else
MsgBox "Not Found"
End If
'Once StoreNum is found paste the copied range to the right (3 Columns)
Active Cell.Offset(, 3).Paste
End If
'Move to the next row where Not Completed if found
LSearchRow = LSearchRow + 1
Wend
Application.CutCopyMode = False
Err_Execute:
MsgBox "An error occured."
End Sub