Why Is My Loop Not Repeating Correctly?

[CP1880]

I'd definitely appreciate any insight into my problem. Newbie here to VBA but learning quick. My problem is the following: I'm trying to cut & paste a range into some data that has been autofiltered. I'd like the loop to paste until there is no longer data in column A. Right now it only pastes twice. I'm sure it's an obvious answer but right now I can't see the forest from the trees. Thanks in advance!!

[INDENT]Selects Over and Down. Applies filter to select only CCV.
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).<wbr>Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter Field:=2, Criteria1:= _
"=??????????[CCV]", Operator:=xlAnd
 
'Copies and Pastes CCV formula
Windows("Template.xls").<wbr>Activate
Range("E246:J306").Select
Selection.Copy
Windows("CURRENTDATA.xls").Activate
   
'Moves Cursor to Column E First Empty Cell and Pastes CCV Formula
ActiveSheet.AutoFilter.Range.<wbr>Offset(1).SpecialCells(<wbr>xlCellTypeVisible).Cells(1, 5).Select
ActiveSheet.Paste
 
'Moves Cursor Down to First Empty Cell in Column E and Pastes CCV Formulas
ActiveCell.Offset(61, 0).Activate
Do While ActiveCell.EntireRow.Hidden = True
ActiveCell.Offset(61, 0).Activate
Loop
ActiveSheet.Paste
Do Until IsEmpty(ActiveCell.Value)
        ActiveCell.Value = ActiveCell.Value * 2
        ActiveCell.Offset(1, 0).Select
    Loop
End Sub
[/INDENT]