I'm trying to copy some data from one Sheet to another using a vba script, it works fine but it doesn't appear to gather all the results, the data i have is split up over multiple tables so i assume it's seeing a blank space and stepping out but i'm not sure the solution! (the results i'm after are all letters i.e A-f and are all located on column C)

code below:

```
Sub copytoprint()
   Dim LSearchRow As Integer
   Dim LCopyToRow As Integer
   Application.ScreenUpdating = False
   On Error GoTo Err_Execute

   LSearchRow = 2
   LCopyToRow = 2

   While Len(Range("C" & CStr(LSearchRow)).value) > 0
     If InStr(1, Range("C" & CStr(LSearchRow)).value, "A") > 0 Then
         Rows(CStr(LSearchRow) & ":" & CStr(LSearchRow)).Select
         Selection.Copy

         Sheets("dest").Select
         Rows(CStr(LCopyToRow) & ":" & CStr(LCopyToRow)).Select
         ActiveSheet.Paste

         LCopyToRow = LCopyToRow + 1
         Sheets("source").Select

      End If

      LSearchRow = LSearchRow + 1

   Wend

   Application.CutCopyMode = False
   Range("A3").Select

   MsgBox "All matching data has been copied."

   Exit Sub

Err_Execute:
   MsgBox "An error occurred."

End Sub

```

Input would just be a basic line of details i.e

```
ID      person  ref itemid  itemname        shape
Alphas1 bob     A   As01    Alphaselects1   circle
Alphas2 Stuart  B   As02    Alphaselects2   circle

```

Basically they are split up with many records I'd like it to grab all the A reference put them in one table then folow on with B C etc

Hope that makes a little sense?