Public Sub AlleZellenLesen()
Dim MeineRange As Range
Dim Inhalt As String
Dim AnzahlSpalten As Long
Dim AnzahlZeilen As Long
Dim Zeile As Long
Dim Spalte As Long
AnzahlSpalten = ActiveCell.SpecialCells(xlLastCell).Column
AnzahlZeilen = ActiveCell.SpecialCells(xlLastCell).Row
Set MeineRange = Range("A1:" & ActiveCell.SpecialCells(xlLastCell).Address)
For Zeile = 1 To AnzahlZeilen
    For Spalte = 1 To AnzahlSpalten
        Inhalt = MeineRange.Cells(Zeile, Spalte).Value
        Rem Was Du mit dem Inhalt machst, bleibt Dir überlassen
    Next
Next
End Sub