Matching Query

I keep getting run-time and application defined errors..

Theere are 2 sheets srctestdata and lists

after entering data in the start and end row...the macro reads column 5 in srctestdata character by character. if any of the characters are ," ", commas etc...it ignores it and concantenates the letters are numbers. this is stored in chemNameSrc.

focus then moves to lists sheet.

here th macro reads the list starting at row 12 ending at 211.

stores letters are numbers in chemNamelist

chemNameSrc and chemNameList are compared. If equal then ok. If not, macro goes through the full list on lists sheet. It will color the cell red where there are no hits.

here is the

Option Explicit

Dim startRow, endRow, manhole, i, j, u, v, x, y, k, characters, endRowList As Integer

Dim nameHolder, letterHolder, chemNameSrc, chemNameList, testYear As String

Sub PopulateSheet()

startRow = InputBox("Enter the start row of the data where you would like to enter data?")
endRow = InputBox("Enter the last row of the data where you would the entered data ends?")
manhole = InputBox("Enter the manhole for which you are entering the data?")
testYear = InputBox("Enter the test year for which you are entering the data?")

For i = startRow To endRow

Cells(i, 1) = manhole
Cells(i, 3) = testYear

If Left(Cells(i, 6), 1) = "