Here is the entire code...The name of the excel file containing all of this is "This_Report.xls" Please help me out. I'm sorry if I don't pick this up quickly. Visual Basic is like a foreign language to me.
Sub InputCBNJ()
Application.ScreenUpdating = False
Workbooks(This_Report.xls).Worksheets("Data"

.Range("A1:az400"

.Clear
'Workbooks.Open FileName:="E:\someone\CBNJANM.CSV"
Workbooks.Open FileName:="\\somewhere\something\someone\CBNJANM.CSV"
Range("A1"

.CurrentRegion.Copy _
Workbooks(This_Report.xls).Worksheets("Data"

.Range("A4"

Workbooks(This_Report.xls).Worksheets("Data"

.Range("A1"

.Value = "CBNJ Weekly Anomaly Report"
Workbooks(This_Report.xls).Worksheets("Graph"

.Activate
Workbooks("CBNJANM.CSV"

.Close
Application.ScreenUpdating = True
End Sub
Sub InputCBNY()
Application.ScreenUpdating = False
Workbooks(This_Report.xls).Worksheets("Data"

.Range("A1:az400"

.Clear
'Workbooks.Open FileName:="E:\someone\CBNYANM.CSV"
Workbooks.Open FileName:="\\somewhere\something\someone\Cbnyanm.CSV"
Range("A1"

.CurrentRegion.Copy _
Workbooks(This_Report.xls).Worksheets("Data"

.Range("A4"

Workbooks(This_Report.xls).Worksheets("Data"

.Range("A1"

.Value = "CBNY Weekly Anomaly Report"
Workbooks(This_Report.xls).Worksheets("Graph"

.Activate
Workbooks("CBNYANM.CSV"

.Close
Application.ScreenUpdating = True
End Sub
Sub InputCBSD()
Application.ScreenUpdating = False
Workbooks(This_Report.xls).Worksheets("Data"

.Range("A1:az400"

.Clear
'Workbooks.Open FileName:="E:\someone\CBSDANM.CSV"
Workbooks.Open FileName:="\\somewhere\something\someone\CBSDANM.CSV"
Range("A1"

.CurrentRegion.Copy _
Workbooks(This_Report.xls).Worksheets("Data"

.Range("A4"

Workbooks(This_Report.xls).Worksheets("Data"

.Range("A1"

.Value = "CBSD Weekly Anomaly Report"
Workbooks(This_Report.xls).Worksheets("Graph"

.Activate
Workbooks("CBSDANM.CSV"

.Close
Application.ScreenUpdating = True
End Sub
Sub InputCBNV()
Application.ScreenUpdating = False
Workbooks(This_Report.xls).Worksheets("Data"

.Range("A1:az400"

.Clear
'Workbooks.Open FileName:="E:\someone\CBNVANM.CSV"
Workbooks.Open FileName:="\\somewhere\something\someone\CBNVANM.CSV"
Range("A1"

.CurrentRegion.Copy _
Workbooks(This_Report.xls).Worksheets("Data"

.Range("A4"

Workbooks(This_Report.xls).Worksheets("Data"

.Range("A1"

.Value = "CBNV Weekly Anomaly Report"
Workbooks(This_Report.xls).Worksheets("Graph"

.Activate
Workbooks("CBNVANM.CSV"

.Close
Application.ScreenUpdating = True
End Sub
Sub InputCBMD()
Application.ScreenUpdating = False
Workbooks(This_Report.xls).Worksheets("Data"

.Range("A1:az400"

.Clear
'Workbooks.Open FileName:="E:\someone\CBNVANM.CSV"
Workbooks.Open FileName:="\\somewhere\something\someone\CBMDANM.CSV"
Range("A1"

.CurrentRegion.Copy _
Workbooks(This_Report.xls).Worksheets("Data"

.Range("A4"

Workbooks(This_Report.xls).Worksheets("Data"

.Range("A1"

.Value = "CBMD Weekly Anomaly Report"
Workbooks(This_Report.xls).Worksheets("Graph"

.Activate
Workbooks("CBMDANM.CSV"

.Close
Application.ScreenUpdating = True
End Sub
Sub PrintReports()
Application.ScreenUpdating = False
InputCBNJ
ActiveWindow.SelectedSheets.PrintOut Copies:=1
InputCBSD
Workbooks(This_Report.xls).Worksheets("Graph"

.Range("I1"

.Value = "Page 4"
Workbooks(This_Report.xls).Worksheets("Graph"

.Range("I50"

.Value = "Page 5"
Workbooks(This_Report.xls).Worksheets("Graph"

.Range("I98"

.Value = "Page 6"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
InputCBNV
Workbooks(This_Report.xls).Worksheets("Graph"

.Range("I1"

.Value = "Page 7"
Workbooks(This_Report.xls).Worksheets("Graph"

.Range("I50"

.Value = "Page 8"
Workbooks(This_Report.xls).Worksheets("Graph"

.Range("I98"

.Value = "Page 9"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
InputCBNY
Workbooks(This_Report.xls).Worksheets("Graph"

.Range("I1"

.Value = "Page 10"
Workbooks(This_Report.xls).Worksheets("Graph"

.Range("I50"

.Value = "Page 11"
Workbooks(This_Report.xls).Worksheets("Graph"

.Range("I98"

.Value = "Page 12"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
InputCBMD
Workbooks(This_Report.xls).Worksheets("Graph"

.Range("I1"

.Value = "Page 13"
Workbooks(This_Report.xls).Worksheets("Graph"

.Range("I50"

.Value = "Page 14"
Workbooks(This_Report.xls).Worksheets("Graph"

.Range("I98"

.Value = "Page 15"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Workbooks(This_Report.xls).Worksheets("Graph"

.Range("I1"

.Value = "Page 1"
Workbooks(This_Report.xls).Worksheets("Graph"

.Range("I50"

.Value = "Page 2"
Workbooks(This_Report.xls).Worksheets("Graph"

.Range("I98"

.Value = "Page 3"
Application.ScreenUpdating = True
End Sub