VBA to split data to worksheet/workbook , delete zero values, set print area

This should help with questions 1 and 3:

Public Sub DeleteRowsAndSave()
  Dim r As Long
  Dim sh As Worksheet
  Dim wb As Workbook
  
  Set sh = ThisWorkbook.Worksheets("Sheet1")
  
  For r = sh.UsedRange.Rows.Count To 1 Step -1
    If sh.Cells(r, 11).Value = 0 Then sh.Rows(r).Delete
  Next
  
  sh.Copy
  ActiveWorkbook.SaveAs "D:\Temp\Test.xlsx"
  ActiveWorkbook.Close
End Sub

Unrelated to you questions, let me suggest you avoid using 'Select' - it is almost never needed, and it really slows things down. As an example, you can replace

ActiveSheet.Range("a1:W1").Select
 Selection.Copy

with

ActiveSheet.Range("a1:W1").Copy