Private Function GetMyRecordset(ByVal pstrSQL As String) As Recordset

    Dim objMyRcrdst As ADODB.Recordset
    Dim strCnctn As String

    strCnctn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & ThisWorkbook.FullName & ";" & _
    "Extended Properties=""Excel 8.0;HDR=No"";"
     
    Set objMyRcrdst = New ADODB.Recordset
     
    With objMyRcrdst
        .CursorLocation = adUseClient
        .Open pstrSQL, strCnctn, adOpenStatic, adLockReadOnly, adCmdText
    End With
    
    Set GetMyRecordset = objMyRcrdst
         
End Function


Private Sub DumpResults(ByVal pstrDumpStartRange As String, _
                                      ByVal pstrField As String)
                                      
    Dim objRecordset As ADODB.Recordset
    Dim strSQL As String
    
     strSQL = "SELECT DISTINCT Table." & pstrField & " FROM [Table]"
     
    Set objRecordset = GetMyRecordset(strSQL)
    
    ThisWorkbook.Worksheets( 1 ).Range(pstrDumpStartRange).CopyFromRecordset objRecordset
    
End Sub

Private Sub CommandButton1_Click()
    DumpResults "C1", "F1"
    DumpResults "D1", "F2"
End Sub