Creating Lists from data across the workbook

I've automated the clearing with these clicks:

Private Sub CommandButton1_Click() 'Clients Converted
Range("D9:D" & Rows.Count).ClearContents
Call GenList(4, "Yes", "D", "AH")
End Sub
Private Sub CommandButton2_Click() 'Clients visited
Range("C9:C" & Rows.Count).ClearContents
Call GenList(2, "", "AH", "C")
End Sub
Private Sub CommandButton3_Click() 'Clients called
Range("B9:B" & Rows.Count).ClearContents
Call GenList(0, "", "AH", "B")
End Sub