VBA Print af Ark Start

Hej Alle

Jeg har et ark der hedder Start.
Her bliver der tastet nogle oplysninger ind.
Jeg har en commandknap som når man trykker på den kopier disse oplysninger over i et andet ark.
Når dette er gjort bliver arket gemt og det lukker ned.

Jeg kunne dog godt tænke mig, HVIS det er muligt, at før alt ovenstående sker, så kommer den og spørg om man vil printe arket ud A1:I40.
Hvis Ja, så åbner printer standard vinduet (Problemet er at vi på arbejdet har mange printerer så jeg tror ikke jeg kan undgå ikke at skulle vælge hvilken printer arket skal printes til).
Når arket er udskrevet, så fortsætter koden med ovenstående.

Er det muligt, måske endda lidt omsånst ved det ikke?

Private Sub CommandButton1_Click()

Dim shtInput As Worksheet
Dim shtOutput As Worksheet
Dim intSidsteraekke As Integer
Dim intInputraekke As Integer


If Range("B10").Value > 1 Then Makro = 1

Antal = Makro

    Select Case Makro
        Case Is = 1
            Call Makro_1
       
    End Select
End Sub

Sub Makro_1()
'find sidste række med data så der kopieres ind i næste række
intSidsteraekke = Sheets("Afvigelser").Cells(Sheets("Afvigelser").Rows.Count, "A").End(xlUp).Row
intInputraekke = intSidsteraekke + 1

Sheets("Afvigelser").Cells(intInputraekke, 1) = Sheets("Start").Range("M2").Value
Sheets("Afvigelser").Cells(intInputraekke, 5) = Sheets("Start").Range("M3").Value
Sheets("Afvigelser").Cells(intInputraekke, 6) = Sheets("Start").Range("M5").Value
Sheets("Afvigelser").Cells(intInputraekke, 7) = Sheets("Start").Range("O5").Value
Sheets("Afvigelser").Cells(intInputraekke, 8) = Sheets("Start").Range("M7").Value
Sheets("Afvigelser").Cells(intInputraekke, 9) = Sheets("Start").Range("M8").Value
Sheets("Afvigelser").Cells(intInputraekke, 10) = Sheets("Start").Range("M10").Value
Sheets("Afvigelser").Cells(intInputraekke, 11) = Sheets("Start").Range("O10").Value
Sheets("Afvigelser").Cells(intInputraekke, 14) = Sheets("Start").Range("M11").Value
Sheets("Afvigelser").Cells(intInputraekke, 15) = Sheets("Start").Range("O11").Value
Sheets("Afvigelser").Cells(intInputraekke, 16) = Sheets("Start").Range("M12").Value
Sheets("Afvigelser").Cells(intInputraekke, 17) = Sheets("Start").Range("O12").Value
Sheets("Afvigelser").Cells(intInputraekke, 18) = Sheets("Start").Range("M13").Value
Sheets("Afvigelser").Cells(intInputraekke, 19) = Sheets("Start").Range("O13").Value
Sheets("Afvigelser").Cells(intInputraekke, 20) = Sheets("Start").Range("M15").Value
Sheets("Afvigelser").Cells(intInputraekke, 21) = Sheets("Start").Range("M18").Value
Sheets("Afvigelser").Cells(intInputraekke, 4) = Sheets("Start").Range("M19").Value
Sheets("Afvigelser").Cells(intInputraekke, 31) = Sheets("Start").Range("M27").Value
Sheets("Afvigelser").Cells(intInputraekke, 12) = Sheets("Start").Range("M35").Value
Sheets("Afvigelser").Cells(intInputraekke, 13) = Sheets("Start").Range("O35").Value
Sheets("Afvigelser").Cells(intInputraekke, 41) = Sheets("Start").Range("M36").Value
Sheets("Afvigelser").Cells(intInputraekke, 42) = Sheets("Start").Range("M37").Value
Sheets("Afvigelser").Cells(intInputraekke, 43) = Sheets("Start").Range("M38").Value
Sheets("Afvigelser").Cells(intInputraekke, 2) = Sheets("Start").Range("M39").Value
Range("B2") = Range("B2") + 1
    Range("B5").Select
    Selection.ClearContents
    Range("E5").Select
    Selection.ClearContents
    Range("B7").Select
    Selection.ClearContents
    Range("B8").Select
    Selection.ClearContents
    Range("B10").Select
    Selection.ClearContents
    Range("E10").Select
    Selection.ClearContents
    Range("B11").Select
    Selection.ClearContents
    Range("E11").Select
    Selection.ClearContents
    Range("B12").Select
    Selection.ClearContents
    Range("E12").Select
    Selection.ClearContents
    Selection.ClearContents
    Range("B13").Select
    Selection.ClearContents
    Range("E13").Select
    Selection.ClearContents
    Selection.ClearContents
    Range("B15").Select
    Selection.ClearContents
    Range("A18").Select
    Selection.ClearContents
    Range("F18").Select
    Selection.ClearContents
    Range("A27").Select
    Selection.ClearContents
    Range("B35").Select
    Selection.ClearContents
    Range("E35").Select
    Selection.ClearContents
    Range("B36").Select
    Selection.ClearContents
    Range("B37").Select
    Selection.ClearContents
    Range("B38").Select
    Selection.ClearContents
ThisWorkbook.Close savechanges:=True
 
   
 
End Sub