Copy all cells in sheet1 that start with specific letters to one column in sheet2

[jgabis]

I have been trying to figure this one out for a week or so, I've tried molding other peoples solutions to fit my needs and can't seem to make it work.

I have a sheet that has a lot of lab results. I need to search Sheet1 and find every cell that starts with the letters "SNP" and those cells' values to Column A on Sheet2. The order doesn't matter. The range is huge, 1000's of rows and columns to search, although very many of the cells are blank.

I've attached a sample file with a much smaller data set, but i'd like to use some code where it will be easy to change out the search range, as i have many files that i need to do this to. The actual ranges are something like A1:EDP5130

Thanks in advance for any help and suggestions!

[JOHN H. DAVIS]

Maybe:

Sub jgabis()

Dim rcell As Range

Application.ScreenUpdating = False

For Each rcell In ActiveSheet.UsedRange

    If Left(rcell, 3) = "SNP" Then
    
        rcell.Copy Sheets("Sheet2").Range("A" & Rows.Count).End(3)(2)
        
    End If
    
Next rcell

Application.ScreenUpdating = True

End Sub

[watersev]

hi jgabis, option, run code "test"