PDF in excel einfügen

Sub insert_pdf_to_report()
Dim var As Variant
Dim var1 As Variant
Dim Ws
Dim Ol
Sheets("Songliste").Activate
var = ActiveCell.Value
var1 = ActiveCell.Offset(0, -1).Value
Set Ws = ActiveWorkbook.Worksheets("Songliste")
'Set Ws = ActiveWorkbook.Worksheets("Neuer_Song")
Set Ol = Ws.OLEObjects.Add(, "C:\Users\a.mazza\Desktop\Songliste\" & var1 & "\" & var, True, False)
With Ol
.Left = Ws.Range("F5").Left
.Height = Ws.Range("F5").Height
.Width = Ws.Range("F5:J52").Width
.Top = Ws.Range("F5").Top
'    With Ol
End With
'        .Left = Ws.Range("K19").Left
'        .Height = Ws.Range("K19").Height
'        .Width = Ws.Range("K19:T67").Width
'        .Top = Ws.Range("K19").Top
'    End With
Sheets("Songliste").Activate
'Sheets("Neuer_Song").Activate
End Sub