Macro to copy columns if values begins specific text.

Hi Youngmrr,

This should be a good start

Sub Coppy()

Dim lookfor As String
Dim i As Integer
Dim j As Integer
Dim cellval As String

lookfor = "ABCD"

For j = 1 To 20
    For i = 1 To 2000
    
        cellval = Left(Cells(i, j).Value, 4)
        
        If cellval = lookfor Then
            Cells(i, j).Copy Worksheets("Work").Cells(i, j)
        End If
    
    Next i
Next j

End Sub

 You can change the value to look for in row 6. Currently set to "ABCD"

This will look cell by cell in a 20 columns x 200 rows grid for anything that starts with ABCD and will copy it in your sheet named "Work".

Hope this helps.