
Sub Macro1()
Dim ValRighe
Set myrange = Worksheets("Foglio1").Range("A1:A100")
ValRighe = Application.WorksheetFunction.CountBlank(myrange)
ValRighe = 100 - ValRighe
Range("A1:C" & ValRighe).Select
Selection.PrintOut Copies:=1, Collate:=True
Range("A1").Select
End Sub
|
