Greetings friends.
Not sure why but my code will not continuously add data to the Last Row in a Column. It simply loops through all the data pasting only the final result.
Example.
It should have pasted 200 values to the bottom of my list. But it just changes the value of the Last row to the value of the 200th result.
Here is my code. I can;t see whats wrong.
Code
Application.Calculation = xlManual
Application.ScreenUpdating = False
If Sheets("Master").AutoFilterMode = True Then Sheets("Master").AutoFilterMode = False 'Turn off the Autofilter
Dim FindString As String
Dim rng As Range
Dim Last_Row As Long
Last_Row = Sheets("GP-MP").Range("C" & Rows.Count).End(xlUp).Row 'Find the Lastrow in Column C
For Each c In Sheets("Master").Range("D2:D1600").Cells 'Where my data is
FindString = c.Value
If Trim(FindString) <> "" Then
Sheets("GP-MP").Select
With Sheets("GP-MP").Range("C2:C2500") 'Where my data should go
Set rng = .Find(what:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, _
MatchCase:=True)
If rng Is Nothing Then
c.Copy Sheets("GP-MP").Range("C2" & Last_Row) 'Copy missing data from Sheet1 to Sheet2
Else
GoTo NC
End If
End With
End If
NC:
Next c
Sheets("GP-MP").Activate
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Unload Me