Sub TiedostoJuttu()

    Dim KysyTiedosto As String
    Dim KokoTiedostoNimi As String
    Dim LadattuWorkbook As Workbook

    KysyTiedosto = Application.InputBox(Prompt:="Avaa oletuskansiosta tiedosto nimeltä:", Title:="Avaa tiedosto", Default:="tiedosto.xlsx")

    If Dir(KysyTiedosto) <> "" Then
        Set LadattuWorkbook = Workbooks.Open(KysyTiedosto)
        LadattuWorkbook.Worksheets(1).Cells.Copy
        Workbooks.Add
        ActiveSheet.Paste
      If Dir("uusi.xlsx") <> "" Then
        Kill("uusi.xlsl")
    End If
        ActiveSheet.SaveAs Filename:="uusi.xlsx"
     Else
        MsgBox Prompt:="Tiedostoa " & KysyTiedosto & " ei löytynyt. Tarkista tiedoston nimi sekä sijainti ja yritä uudelleen!", Buttons:=vbExclamation, Title:="Tiedostoa ei löydy"
    End If
 End Sub