code stops halfway through

[mrkasten]

I have a code running a vlookup that than needs to copy any rows the return a #N/A to a sheet called 'Removed". The code I have now does that but only copes half of the data. It stops at row column 'L' and it needs to go to column 'AC'. Thank you for any future help.

 

[mrkasten]

Sorry the code is:

Sub ChequeRemove()
Dim wb As Workbook, oWS As Worksheet, nWS As Worksheet
Dim i As Long, LastRow As Long, LastCol As Long, nLastRow As Long
Set wb = ActiveWorkbook
Set oWS = wb.Sheets("Outstanding ST Loans")
Set nWS = wb.Sheets("June 2010")

nLastRow = nWS.Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Row
LastRow = oWS.Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Row
LastCol = oWS.Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Column

oWS.Range(Cells(1, LastCol + 1), Cells(LastRow, LastCol + 1)).FormulaR1C1 = "=VLOOKUP(RC[" & 11 - (LastCol + 1) & "],'" & nWS.Name & "'!R1C4:R" & nLastRow & "C4,1,FALSE)"

For i = LastRow To 1 Step -1
If oWS.Cells(i, (LastCol + 1)).Text = "#N/A" Then If oWS.Cells(i, (LastCol + 1)).Text = "#N/A" Then Rows(i).Copy Destination:=Sheets("Removed").Range("A" & Rows.Count).End(xlUp).Offset(1)
If oWS.Cells(i, (LastCol + 1)).Text = "#N/A" Then Rows(i).Delete
Next i
End Sub