Buenas noches

Tengo el siguiente código que muy amablemente me ayudaron 

Sub Nuevokardexclte()
    Sheets("A1").Select
    Sheets("A1").Copy before:=Sheets(7)
      For Each Sh In Sheets
If InStr(1, Sh.Name, Range("B1")) > 0 Then
    'se busca el guión bajo porque no sabemos cuántos índices puede llegar a tener
    For i = Len(Sh.Name) To 1 Step -1
        If Mid(Sh.Name, i, 1) = "-" Then
            indi = Right(Sh.Name, Len(Sh.Name) - i) + 1
            nvonbre = Left(Sh.Name, i) & indi
            ActiveSheet.Name = nvonbre
            Exit For
        End If
    Next i
    'si i = 1 es que no encontró el guión
    If i = 0 Then
        nvonbre = Range("B1") & "-1"
        ActiveSheet.Name = nvonbre
    End If
    MsgBox "Ya existe hoja con nombre " & [B1] & ". Se la nombra como " & nvonbre & ".", , "ATENCIÓN"
    Exit Sub
End If
Next Sh
ActiveSheet.Name = Range("B1").Value
End Sub

Bueno lo que necesito es de la hoja creada seleccionar el contenido de la celda D1, copiar y pegar el valor de la celda mencionada a la ultima celda vacía de la columna B en mi hoja de calculo con el nombre de MENU .

Saludos cordiales

Jesús

Hola jesus miguel,

Si la última hoja creada es una copia de la hoja "A1" puedes hacer lo siguiente:

sheets("MENU").range("B" & sheets("MENU").columns("B:B").rows(rows.count).end(xlup).row)=sheets("A1").range("D1")

te lo pongo de cabeza, pruébalo y comentas