This is what i have
Sub Shop()

    Dim row As Integer
    Dim ranges As Integer
    Dim columns As String

    row = 3
    ranges = 3
    columns = B
    
Do Until row = 136
    
    Sheets("Stats").Select

If range("B3") = "LG" Then
    
        Rows(row).Select
        Selection.Copy
        Sheets("PT").Select
        Rows(row).Select
        ActiveSheet.Paste
        row = row + 1
Else
        ranges = ranges + 1
End If
Loop
If there is a way to change the range to B4, B5 etc i will have what i need