Private Sub Workbook_Open()
   'データ満杯削除

   Dim intRow As Integer

  Sheets("Sheet1").Select

  intRow = Range("B3").End(xlDown).Row

  If intRow > 14 Then
     Range("B4:G6").Delete shift:=xlUp
  End If

  Range("A1").Select

End Sub
---------------------------------------------
Sub auto_open()
   'データ満杯削除

   Dim intRow As Integer

   Sheets("Sheet1").Select

   intRow = Range("B3").End(xlDown).Row

   If intRow > 14 Then
      Range("B4:G6").Delete shift:=xlUp
   End If

   Range("A1").Select


End Sub