I am trying to run the macro below, but it doesnt seem to be printing. What is wrong with it ?
Option Explicit
Sub test()
Dim i As Integer
i = 1
While Sheets(2).Cells(i, 1).Value <> ""
Sheets(1).Cells(1, 1).Value = Sheets(2).Cells(i, 1).Value
Sheets(1).PrintOut...