Runtime Error 91 - object variable or with block variable not set

run time error 91 - when i go to debug this is what shows up

Sub LoopThroughFiles()
Dim MyObj As Object, MySource As Object, file As Variant
Set MySource = MyObj.GetFolder("C:\Users\rsa")
For Each file In MySource.Files
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = "Title"
Range("B1").Select
ActiveCell.FormulaR1C1 = "title"
Range("C1").Select
ActiveCell.FormulaR1C1 = "title"
Save
Next file
End Sub

any help would be great, thanks