COMO MANIPULAR AS COLUNAS DO EXCEL

Private Sub Command1_Click()

Dim EApp As Excel.Application
Dim EwkB As Excel.Workbooks
Dim EwkS As Object
Dim xlw As Excel.Workbook
ProgressBar.Max = rs.RecordCount
Set EApp = New Excel.Application
Set EwkB = EApp.Workbooks

'Abre arquivo
Call EwkB.Open("c:\Planilhas\Estatistica.xls")
               
'Reexibir plan
EApp.Sheets("Vendedores").Visible = True
'Seleciona a PLanilha
EApp.Sheets("Vendedores").Select
        
'Cells.Select
EApp.Range("B8:F62000").Select
EApp.Selection.ClearContents
    
EApp.Range("H8:N62000").Select
EApp.Selection.ClearContents
    
'Cálculo manual
EApp.Application.Calculation = xlManual
EApp.Application.MaxChange = 0.001
EApp.ActiveWorkbook.PrecisionAsDisplayed = False
Me.Refresh
' exibe a aplicação Excel
EApp.Application.Visible = False
        
'Colar os meses no cabeçalho
EApp.Range("m" & 1).Value = DTINI & " à " & DTFIM
    
'aqui carrega o recordset (não mostrei o codigo)
'depois dá um while para percorrer todos os registro do bd
i = 7
Do While rs.EOF = False
    i = i + 1
    ProgressBar.Value = i
    EApp.Range("b" & i).Value = rs("SpvID").Value
    EApp.Range("c" & i).Value = rs("VendID").Value
    EApp.Range("d" & i).Value = rs("NomeVend").Value
    EApp.Range("e" & i).Value = rs("QtdeCX").Value
    EApp.Range("f" & i).Value = rs("Tend").Value
    EApp.Range("h" & i).Value = rs("MetaVol").Value
    EApp.Range("i" & i).Value = rs("MetaPrM").Value
    EApp.Range("j" & i).Value = rs("PrM").Value
    EApp.Range("k" & i).Value = rs("Positivacao").Value
    EApp.Range("l" & i).Value = rs("MetaCob").Value
    EApp.Range("m" & i).Value = rs("Cobertura").Value
    EApp.Range("n" & i).Value = rs("ValorFinal").Value
                              
    rs.MoveNext
Loop
EApp.Range("B8").Select
            
End Sub