Seleccionar celda de hoja creada y copiar a otra hoja

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)
      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 .