I have the following code:
Dim wb As Workbook Dim ws As Worksheet Dim Test As String Dim TestRow As Long Dim LastRow As Long Set wb = ThisWorkbook Set ws = w