Copy Range in row instead of "EntireRow"

[groundin]

I have this macro, when I am in column C and press enter it copies the current row then pastes it below.
It uses the "EntireRow" function. The problem is my Excel spread sheet is now 133MB. And it is very slow.
Is there a way to only copy the columns in the row that I need (to BQ) so that my workbook doesn't go to column XFD?
And is there a way to make my current workbook smaller?

Please Login or Register  to view this content.

[AB33]

Please Login or Register  to view this content.

[groundin]

Thanks! I tried it out but get an error in the with statement. See attached screen shot.2017-02-04.png

[AB33]

I knew your code was wrong too as it does not have a cell reference.

.Copy Range("A" & LR + 1)
does not include the row number(address)
Try

With Range(Cells(cell.Row, "A"), Cells(cell.Row, "BQ"))
.Copy

[groundin]

Not sure what happened, now nothing happens... here is what I have

Please Login or Register  to view this content.

[AB33]

Where is the paste method in your code?
I mean where are you pasting the copied range?

[daboho]

please upload your workbook

[Maudibe]

Try

Please Login or Register  to view this content.

The way your code is setup, it copies the last row to the next row then clears it. Is that what you want to happen?

Maud

[TMS]

I knew your code was wrong too as it does not have a cell reference.

The original code only refers to a single cell, Range("A" & LR) and uses .EntireRow

[jolivanes]

Is this for a Minimum Curvature Calculation Sheet?

[groundin]

yes, something likethat, its a"slidesheet" that i use for my job

[groundin]

This works
Thanks!!!!

Try

Please Login or Register  to view this content.

The way your code is setup, it copies the last row to the next row then clears it. Is that what you want to happen?

Maud