Copy down formulae

[waxb18]

Hi again guys

I basically need a macro to copy down the last row of data from columns C through to I

I have managed to select the Last cell in column C but this is where im getting stuck in selecting the rest of the row up to I and then pasting it down one row.

This is what i have

Range("C36").End(xlDown).Select

 

[VoG]

Maybe like this

With Range("C36").End(xlDown)
    .Resize(, 7).Copy
    .Offset(1).PasteSpecial Paste:=xlPasteFormulas
End With

 

[waxb18]

Nice one YET AGAIN VoG...

Another quick one for you...

I need to insert a new row above the last row of data.....

any ideas?

 

[VoG]

Try like this

Dim LR As Long
LR = Cells.Find(what:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
Rows(LR).Insert

 

[waxb18]

Maybe like this

With Range("C36").End(xlDown)
    .Resize(, 7).Copy
    .Offset(1).PasteSpecial Paste:=xlPasteFormulas
End With

VoG Is there a way that i can get this macro to ignore blank cells but still get to the end of the data as there is missing cells through Column C where data hasnt been entered

 

[waxb18]

and also a quick way to paste to the bottom of data rather than single cell as i am using this macro for a different purpose now

 

[VoG]

Maybe like this

Dim LR As Long
LR = Cells.Find(what:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
With Range("C" & LR)
    .Resize(, 7).Copy
    .Offset(1).PasteSpecial Paste:=xlPasteFormulas
End With

 

[waxb18]

Thanks VoG

YOUR THE BUSINESS