Clearing volatile cell ranges

Hello, and thanks for taking the time to stop and read my help request.

This is extremely difficult to explain due in part to my limited knowledge of excel, but I will try my best.

I have an excel form where a user can insert a row of information and after insertion a macro automatically sorts the data into the rest of the dataset.

I also have it set up so that before printing, all blank cells are hidden via autofilter.

The problem is that after printing, I would like the option to clear one column of user entered data, but only among a certain range of rows.

So, my question boils down to: How do I clear the range when I am unsure of how many rows there will be? (If this is even possible)

I have uploaded a screenshot of the form to give some context. Please let me know if I should upload a sample work book, although I doubt it will be any good without having to explain how to use the form.

Thanks in advance for your tips and words of wisdom!

[edit] What I had thought about doing was something along these lines:

Range("C4").Select
Range(Selection, Selection.End(xlDown)).Select

and then utilizing "Selection.Rows.Count" in some fashion to deselect the "Header" cell/row.

Hello Quail,

After looking at the screen shot, it appears you want to clear the "Quantity" column after it has been filtered. What I'm not sure about is are you going to manually select the rows to be deleted?

Think Leith was trying to give you a more tailored reply.

See if attached help

 With Range("C4")
        .Resize(.End(xlDown).Row - 3).SpecialCells(xlCellTypeVisible).ClearContents
    End With

VBA Noob

Thanks VBA NOOB, I think you're understanding me; However, I'm not sure I'm implementing the code you gave me correctly. It doesn't clear the entire column, only the topmost row... I'll tinker with your code to try and fix that. Thank you for your help!!

Here's my sub:

Public Sub clearQuantities()

Dim Answer As String
Dim MyNote As String

    'Place your text here
    MyNote = "Do you want to clear material quantities?"

    'Display MessageBox
    Answer = MsgBox(MyNote, vbQuestion + vbYesNo, "Clear Quantities?")

    If Answer = vbNo Then
        'Code for No button Press
        MsgBox "You pressed NO!"
    Else
        'Code for Yes button Press

    With Range("C4")
        .Resize(.End(xlDown).Row - 3).SpecialCells(xlCellTypeVisible).ClearContents
    End With
    
    End If