Copy Format from other tab until last cell with data

[vinzent]

Hello!

I have this problem with my macro: I want to copy the format from "Old Tab" to "New Tab", from column N to column AB but I am not shure how apply until last row with data in "New Tab".
This is my macro at this moment:

        'Sheets("Old Tab").Range("N2:AB2").Copy
        ActiveSheet.Range("N2").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

If you can help me....Thanks in advanced!!

 

[gordsky]

maybe something like this?

activesheet.range("N2:AB" & activesheet.usedrange.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).row).pastespecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

 

[vinzent]

maybe something like this?

activesheet.range("N2:AB" & activesheet.usedrange.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).row).pastespecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Is working!! thanks a lot.