Dim usedRange As Range
Dim chromePath As String
Dim url As String
chromePath = """C:\Program Files\Google\Chrome\Application\chrome.exe"""
Shell (chromePath & " --new-window " & url), vbNormalFocus
MsgBox "Daten kopieren und einfügen mit OK bestätigen.", vbInformation
Set ws = ActiveWorkbook.Sheets(1)
ws.Paste
ws.Rows(2).Delete
MsgBox "Prüfen ob Daten korrekt eingefügt!", vbOKCancel
If vbOK Then
Set usedRange = ws.usedRange
ws.usedRange.WrapText = False
ws.usedRange.Columns.AutoFit
ws.usedRange.Rows.AutoFit
ActiveWorkbook.Save
Workbooks("MMMM.xlsm").Close SaveChanges:=True
Else
Exit Sub
End If