Finde sidste række i regneark

Dim Data1 As Variant I As Long, RW As Long
    RW = Application.WorksheetFunction.Max(Sheets("Sheet1").[I65536].End(xlUp).Row


Ikke sikker på jeg har forstået dit spørgsmål korrekt.

http://www.ozgrid.com/VBA/ExcelRanges.htm

Jeg prøver lige at beskrive det lidt mere præcist.

Det jeg ønsker min makro skal gøre er, at tage formateringen (der er forskellige betingede formateringer som f.eks. laver nogle forskellige farver i cellerne, samt inddeling af arket med streger omkring cellerne) fra række A og kopiere denne formattering til rækkerne E - 'sidste række'.

Kan nogen give mig et eksemple på dette?

Sub move()
Dim Rs As Range

Set Rs = Range("A1", "IV1")
Rs.Copy
Range("A65536").End(xlUp).Select
Selection.Offset(1, 0).Insert shift:=xlDown

End Sub

Jeg har nu 'optaget' en makro som gør det jeg ønsker:

    Range("B1:AA1").Select
    Selection.Copy
    Range("B8:AA30").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

I dette eksempel kopiere jeg formateringen i cellerne B1:AA1 til rækkerne 8:30 (B8:AA30).
Det jeg gerne vil have flettet ind er, at den selv finder den sidste række og får den ind istedet for AA30.

Men jeg kan ikke rigtigt få det du, igoogle, skriver flettet ind så det fungerer.

Prøv denne:

Sub FormatKopi()
'
'Finder talværdien for sidste ikke-tomme kolonne og tildeler _
'den til variablen Last
    Dim Last As Long
    Last = Cells.Find("*", SearchOrder:=xlByColumns, _
    LookIn:=xlValues, SearchDirection:=xlPrevious).Column
'Kopierer formatet fra A-kolonnen til Alle ikke-tomme kolonner _
'fra og med kolonne E
    Dim ECol As Long
    For ECol = 5 To Last
    ActiveSheet.Columns(ECol).Select
    Columns("A:A").Copy
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Next ECol
End Sub

Har ikke kunnet få det til at fungere.
Lukker spørgsmålet.