open workbook

Workbooks.Open filename:="file.xls"
 Sheets(Worksheets.Count).Activate   ' selecting the last tab
'insert row after first line
  Rows("2").Select
 Selection.Insert Shift:=xlDown
ActiveSheet.Cells(2, 1).Value = "Sharieff"
ActiveSheet.Columns("A").AutoFit
  'If row 3 is blank then deleting it
        If LenB(ActiveSheet.Cells(3, 1)) = 0 Then
          ActiveSheet.Rows(3).EntireRow.Delete
          Rows("2").Select
        End If
  ActiveWorkbook.Close SaveChanges:=True