Macro: Copiar una celda según fila seleccionada

Te anexo una nueva macro.

Antes de ejecutar la macro debes seleccionar la fila a la cual le vas a crear la hoja, es decir, si la fila 6 todavía no tiene su hoja, entonces seleccionas la celda A6.

La macro realiza lo siguiente:

1. Verifica que hayas seleccionado una fila de la columna A.

2. Segundo, copia la hoja "n" (la hoja "n" deberá existir), y la nueva hoja la pone al final de las hojas

3. Crea un vínculo en la hoja "proyectos" para direccionarse a la nueva hoja.

4. En la nueva hoja, en la celda B3, pone una fórmula, para obtener el nombre del proyecto de la hoja "proyectos", de la columna "G" y de la fila de donde fue llamada la macro.

5. Regresa a la hoja "proyectos" y te pone el cursor en la siguiente fila de la columna A

Sub Crear_Una_Hoja()
'Por Dante Amor
    '
    'Validaciones
        fila = ActiveCell.Row
        If fila < 4 Or ActiveCell.Column <> 1 Then
            MsgBox "Selecciona una celda de la colunmna A y fila mayor a 3"
            Exit Sub
        End If
    'Crear hoja
        Set h1 = Sheets("Proyectos")            'hoja de proyectos
        Set h2 = Sheets("n")                    'hoja que se va a copiar
        h2.Copy after:=Sheets(Sheets.Count)
        Set h3 = ActiveSheet
    'Crear vínculo
        h1.Hyperlinks.Add Anchor:=h1.Cells(fila, "A"), Address:="", _
            SubAddress:="'" & h3.Name & "'!B2", TextToDisplay:="Ficha"
    'Poner datos en la hoja creada
        h3.Range("B3").Formula = "='" & h1.Name & "'!G" & fila
        h1.Select
        Cells(fila + 1, "A").Select
End Sub

El detalle que veo en la lógica es el siguiente, qué pasa si seleccionas la fila 6, te crea una hoja y realiza el vínculo. Qué pasa si más adelante pones el cursor en la fila 6 y ejecutas la macro, pues la macro te crearía otra hoja y el vínculo quedaría con la recién hoja creada, pero tendrías 2 hojas para el mismo proyecto.

Prueba la nueva macro y dime si requieres un ajuste para que los nombres de las hojas, por ejemplo, tengan el nombre del proyecto, de esa forma podríamos validar si ya se creó una hoja para el proyecto y no duplicar hojas.

'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. 
'.[Avísame cualquier duda

Prueba con esta macro

Sub copia_hoja()
Dim existe As Boolean
Set hp = Worksheets("proyectos")
Set H1 = Worksheets("hoja1")
Set h3 = Worksheets("hoja3")
Set proyectos = hp.Range("g4").CurrentRegion.Columns(1)
regresa:
With proyectos
    R = .Rows.Count
    For i = 1 To R
    existe = False
        nombre = .Cells(i, 1)
        On Error Resume Next
        existe = (Worksheets(nombre).Name <> Empty)
        On Error GoTo 0
        If Not existe Then
            h3.Copy After:=Sheets(Sheets.Count)
            ActiveSheet.Name = nombre
            H1.Select
            ActiveCell.Offset(1, 0).Select
            ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
            SubAddress:="'" & nombre & "'!B2", TextToDisplay:="Ficha " & nombre
            Sheets(Sheets.Count).Select
            Range("b3") = nombre
            Exit For
        End If
    Next i
End With
Set hp = Nothing:   Set H1 = Nothing
Set h3 = Nothing: Set proyectos = Nothing
End Sub