Sorry, missed something in the class module, code should be

Option Explicit

Public strf As Variant

Dim strf1, strf2, strf3, strf4, strf5, strf6, strf7, strf8, strf9, strf10, _
    strf11, strf12, strf13, strf14, strf15, strf16, strf17, strf18, strf19, strf20, _
    strf21, strf22, strf23, strf24, strf25, strf26, strf27, strf28, strf29, strf30, _
    strf31, strf32, strf33, strf34, strf35, strf36, strf37, strf38, strf39, strf40, _
    strf41, strf42, strf43, strf44, strf45, strf46, strf47, strf48, strf49, strf50
Public Sub sf()

    With ActiveSheet

        strf1 = Application.Transpose(.Range("A2:A1002"))
        strf2 = Application.Transpose(.Range("B2:B1002"))
        strf3 = Application.Transpose(.Range("C2:C1002"))
        strf4 = Application.Transpose(.Range("D2:D1002"))
        strf5 = Application.Transpose(.Range("E2:E1002"))
        strf6 = Application.Transpose(.Range("F2:F1002"))
        strf7 = Application.Transpose(.Range("G2:G1002"))
        strf8 = Application.Transpose(.Range("H2:H1002"))
        strf9 = Application.Transpose(.Range("I2:I1002"))
        strf10 = Application.Transpose(.Range("J2:J1002"))
        strf11 = Application.Transpose(.Range("K2:K1002"))
        strf12 = Application.Transpose(.Range("L2:L1002"))
        strf13 = Application.Transpose(.Range("M2:M1002"))
        strf14 = Application.Transpose(.Range("N2:N1002"))
        strf15 = Application.Transpose(.Range("O2:O1002"))
        strf16 = Application.Transpose(.Range("P2:P1002"))
        strf17 = Application.Transpose(.Range("Q2:Q1002"))
        strf18 = Application.Transpose(.Range("R2:R1002"))
        strf19 = Application.Transpose(.Range("S2:S1002"))
        strf20 = Application.Transpose(.Range("T2:T1002"))
        strf21 = Application.Transpose(.Range("U2:U1002"))
        strf22 = Application.Transpose(.Range("V2:V1002"))
        strf23 = Application.Transpose(.Range("W2:W1002"))
        strf24 = Application.Transpose(.Range("X2:X1002"))
        strf25 = Application.Transpose(.Range("Y2:Y1002"))
        strf26 = Application.Transpose(.Range("Z2:Z1002"))
        strf27 = Application.Transpose(.Range("AA2:AA1002"))
        strf28 = Application.Transpose(.Range("AB2:AB1002"))
        strf29 = Application.Transpose(.Range("AC2:AC1002"))
        strf30 = Application.Transpose(.Range("AD2:AD1002"))
        strf31 = Application.Transpose(.Range("AE2:AE1002"))
        strf32 = Application.Transpose(.Range("AF2:AF1002"))
        strf33 = Application.Transpose(.Range("AG2:AG1002"))
        strf34 = Application.Transpose(.Range("AH2:AH1002"))
        strf35 = Application.Transpose(.Range("AI2:AI1002"))
        strf36 = Application.Transpose(.Range("AJ2:AJ1002"))
        strf37 = Application.Transpose(.Range("AK2:AK1002"))
        strf38 = Application.Transpose(.Range("AL2:AL1002"))
        strf39 = Application.Transpose(.Range("AM2:AM1002"))
        strf40 = Application.Transpose(.Range("AN2:AN1002"))
        strf41 = Application.Transpose(.Range("AO2:AO1002"))
        strf42 = Application.Transpose(.Range("AP2:AP1002"))
        strf43 = Application.Transpose(.Range("AQ2:AQ1002"))
        strf44 = Application.Transpose(.Range("AR2:AR1002"))
        strf45 = Application.Transpose(.Range("AS2:AS1002"))
        strf46 = Application.Transpose(.Range("AT2:AT1002"))
        strf47 = Application.Transpose(.Range("AU2:AU1002"))
        strf48 = Application.Transpose(.Range("AV2:AV1002"))
        strf49 = Application.Transpose(.Range("AW2:AW1002"))
        strf50 = Application.Transpose(.Range("AX2:AX1002"))
    End With

strf = Array(strf1, strf2, strf3, strf4, strf5, strf6, strf7, strf8, strf9, strf10, strf11, strf12, strf13, strf14, strf15, strf16, strf17, strf18, strf19, strf20, strf21, strf22, strf23, strf24, strf25, strf26, strf27, strf28, strf29, strf30, strf31, strf32, strf33, strf34, strf35, strf36, strf37, strf38, strf39, strf40, strf41, strf42, strf43, strf44, strf45, strf46, strf47, strf48, strf49, strf50)
End Sub