UN aiutino anche a me

Ho fatto come voi dicevate, ed ho creato la mia macro:

Sub Macro1()
'
' Macro1 Macro
' Macro registrata il 17/09/2005 da M
'

'
Range("G3:Q3").Select
ActiveCell.FormulaR1C1 = "[Divisione]"
Range("X3:AE3").Select
ActiveCell.FormulaR1C1 = "[Impianto]"
Range("AI3:AJ3").Select
ActiveCell.FormulaR1C1 = "[Anno]"
Range("AG7:AL7").Select
ActiveCell.FormulaR1C1 = "[Nome]"
Range("D7").Select
ActiveCell.FormulaR1C1 = "I1"
Range("E7").Select
ActiveCell.FormulaR1C1 = "I2"
Range("F7").Select
ActiveCell.FormulaR1C1 = "I3"
Range("G7").Select
ActiveCell.FormulaR1C1 = "I4"
Range("H7").Select
ActiveCell.FormulaR1C1 = "I5"
Range("I7").Select
ActiveCell.FormulaR1C1 = "I6"
Range("L7").Select
ActiveCell.FormulaR1C1 = "A1"
Range("M7").Select
ActiveCell.FormulaR1C1 = "A2"
Range("N7").Select
ActiveCell.FormulaR1C1 = "A3"
Range("O7").Select
ActiveCell.FormulaR1C1 = "A4"
Range("P7").Select
ActiveCell.FormulaR1C1 = "A5"
Range("Q7").Select
ActiveCell.FormulaR1C1 = "A6"
Range("S7").Select
ActiveCell.FormulaR1C1 = "[Mese]"
Range("U7:W7").Select
ActiveCell.FormulaR1C1 = "[Foglio]"
Range("Y7:Z7").Select
ActiveCell.FormulaR1C1 = "[Righi]"
Range("AO7:AS7").Select
ActiveCell.FormulaR1C1 = "[Data]"
Range("AO8").Select
End Sub


Ora premendo il pulsante STAMPA in VB vorrei che mi aprisse tale foglio, e mi compilasse l'intestazine, quindi al posto delle "sigle" che io ho inserito delle mettere i dati reali presi da DB.

Mi potete scrivere le strighe per l'apertura del foglio e per mettere attribuire il valore ad una cella preso da DB, ed infine per la stampa.

Ciao e grazieeeeeee