Buenas, necesitaria la siguiente macro pero no para colorear sino para seleccionar

Hice varias modificaciones al código

'Por GP - Adaptación función colorear de DAM'
Sub seleccionar()
    Dim strSelec As String    
    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
        If Cells(i, "A") = 2 Then
            If strSelect <> "" Then strSelect = strSelect & "," 'Agrega una coma si la cadena no está vacía'
            strSelect = strSelect & "B" & i & ":F" & i  'Agrega la direccion a la cadena'
        End If
    Next
    If strSelect <> "" Then Range(strSelect).Select
End Sub

S@lu2

[Hola. Prueba así.

Sub colorear()
'Por.DAM
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
    If Cells(i, "A") = 2 Then
        Range(Cells(i, "B"), Cells(i, "F")).Select
    Else
        Range(Cells(i, "B"), Cells(i, "F")).Select
    End If
Next
End Sub