Copy data down and across range

  • Hi Team,


    Thanks in advance



    I have multiple variable which individually value by below with my required criteria auto filters


    count1 = .AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.count


    filter2


    count2 = .AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.count


    filter3


    count3 = .AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.count


    and go on...............



    and for that I have defined below variable


    Dim count, count1, count2, count3, count4, count5, count6, count7
    Dim count8, count9, count10, count11, count12, count13, count14
    Dim count15, count16, count17, count18, count19, count20 as long


    these each 20 count need to take from 4 excel files and then store to the one new file. after completion of one excel for next excel I have to redefine above variable like



    count1 = 0
    count2 = 0
    count3 = 0
    count4 = 0
    count5 = 0
    count6 = 0
    count7 = 0
    count8 = 0
    count9 = 0
    count10 = 0
    count11 = 0
    count12 = 0
    count13 = 0
    count14 = 0
    count15 = 0
    count16 = 0
    count17 = 0
    count18 = 0
    count19 = 0
    count20 = 0


    is there any idea seniors to create loop for that..


    thanks so much will b very great full