Macro repita acción atrevas de un rango

Si entendí bien quieres copiar lo que tienes de G1:G600 a las celdas L1:¿L600?

Puede ser así:

Sub Copia_Rango()
    Range("G1:G600").Copy Range("L1")
End Sub

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.

Si exacto, pero lo que se debe copiar es solo el código, pues no necesito más información pues en la columna G hay toda una cadena de texto y numero, solo debo extraer el numero que esta ()

BLIND 286 MOTOR (L0167806LT9) MODELO (8

No entiendo esto que pones:

"pero lo que se debe copiar es solo el código"

Puedes poner un ejemplo de lo que tienes en la celda G1, ¿qué tienes en la celda L1 antes del pegado y qué esperas de resultado en la celda L1?

te adjunto imagen,lo que yo quiero es extraer el código que esta en rojo y pasarlo a la columna L, la cual esta bacía, y repetir este pasa hasta el rango G600:L600

Muchas gracias por tu ayuda 

Si el código en rojo siempre está entre paréntesis, entonces utiliza la siguiente macro:

Sub Copia_Rango()
'Por.Dante Amor
    For i = 2 To Range("G" & Rows.Count).End(xlUp).Row
        texto = Cells(i, "G")
        p = InStr(1, texto, "(")
        If p > 0 Then
            q = InStr(1, texto, ")")
            If q > 1 Then
                codigo = Mid(texto, p + 1, q - p - 1)
                Cells(i, "L") = codigo
            End If
        End If
    Next
End Sub

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.

si me funciono, pero donde no hay parentisis, que debo hacer.

muchas gracias