Select a varaible range to delete the data . the range may vary every time the macro runs

Question

   Range("A1").Select
   Selection.End(xlDown).Select
   ActiveCell.Offset(0, 3).Select

   Dim Q As String
   
   Q = ActiveCell.Address
   
   Range(&quo