Tengo el siguiente código que muy amablemente me ayudaron en la página la Sra Elsa

Sub Nuevokardexclte()

    Sheets("A1").Select

    Sheets("A1").Copy before:=Sheets(7)

     'ActiveSheet.Shapes("2 Bisel").Delete

    ' NombreHoja

     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