Caleb Phelps's questions

Quero adicionar uma planilha usando as 2 primeiras células de uma tabela como seu nome. Por exemplo, na tabela a seguir, o Botão 1 criaria uma planilha chamada "Doe,John".

O código do botão se parece com o seguinte atualmente, trazendo uma caixa de entrada para inserir manualmente um nome, abrindo-o e, em seguida, classificando as planilhas em ordem alfabética. Se a planilha já existir, ele só abrirá a planilha:

Sub TestSheetCreate()
    Dim newSheetName As String
    Dim checkSheetName As String
    Dim I As Integer
    Dim J As Integer
    
    newSheetName = Application.InputBox("Input Sheet Name:", "Excel 10 Tutorial", "", , , , , 2)

    On Error Resume Next

    checkSheetName = Worksheets(newSheetName).Name

    If checkSheetName = "" Then
        Worksheets.Add.Name = newSheetName
    Else
        Sheets(checkSheetName).Select
    End If

    For I = 1 To Sheets.Count - 1
        For J = I + 1 To Sheets.Count
            If UCase(Sheets(I).Name) > UCase(Sheets(J).Name) Then
                Sheets(J).Move Before:=Sheets(I)
            End If
        Next J
    Next I
    
End Sub

Como eu substituiria o InputBox por um nome automático gerado a partir das 2 primeiras células da linha em que o botão está localizado?