Jeff,
I really appreciate the point you made regarding being more descriptive with my variables and I have implemented that change. So thanks for that.
Below is my code in total, but I cannot get the merge part to execute. Do you see something wrong that I may be overlooking? Don't worry about the number for the 'SearchRange' variable. It's a 3863 row sheet of data, so I'm just running it on a few rows to see if it works.
Thank you,
Russ
Sub GTQuickReference()
Dim ColumnNum As Integer
Dim RowNum As Integer
Dim SearchString As String
Dim MaxRowNumber As Integer
Dim SearchRange As Integer
SearchString = "GT"
MaxRowNumber = Worksheets("Test Design").Cells.SpecialCells(xlCellTypeLastCell).Row
SearchRange = MaxRowNumber - 3818
ColumnNum = 1
For RowNum = 3 To SearchRange
If Worksheets("Test Design").Cells(RowNum, 2).Value = SearchString Then
Worksheets("Test Design").Select
Worksheets("Test Design").Cells(RowNum, 1).Copy
ColumnNum = ColumnNum + 2
Worksheets("GT Quick Reference View").Select
ActiveSheet.Paste Destination:=Worksheets("GT Quick Reference View").Cells(1, ColumnNum)
Worksheets("GT Quick Reference View").Range(Cells(1, ColumnNum), Cells(1, ColumnNum + 1)).Merge
End If
Next RowNum
End Sub