Data From The Data Sheet Is Copied Over To The Report Sheet With Formula

The data from the Data sheet is copied over to the Report sheet with formula.

Basically, what I need to do is If statement:
-when there is no any data in csv file (so the Data sheet will be empty);
-the range (A7:N1000) to be hidden (on the Report Sheet)
-the Report sheet to be saved

and also...

I would like to ask, how to select from the Data sheet, the rows with Data only. I copy them over with formula instead of macro- but would like to hide all the empty rows on the report.



Option Explicit

Sub Update_Report()
'
' Macro1

Dim extract1 As String
Dim dReport As String
Dim rSheet As String
Dim dSheet As String

extract1 = "LeadSheetAll_0001.csv"
dReport = "Appointments.xls"
rSheet = "Report"
dSheet = "Data1"

Application.ScreenUpdating = False
Application.DisplayAlerts = False