Going To The Last Empty Row and Pasting Special (Values).

[FARAZ QURESHI]

I am consolidating statements being received many branches, with simple copy
& paste special (values). Any macro-code for jumping to the last empty row
and pasting the data being selected and copied from the other sheet.

Example:
A.xls (MAIN);
B.xls (BRANCH REPORT);
Both reports opened;
Data selected from B.xls and copied Ctrl+C;
Switched back to A.xls;

RUN MACRO

Data pasted on excel to the last empty Cell A1 and onwards, in Paste Special
(Values) mode.

All the help as per your expertise shall be highly obliged.

Thankfully,

FARAZ!

 

[Nigel]

Code to determine last used row in column A (change to suit)

Dim myLastRow as Long
With sheets("Sheet1")
myLastRow = .Cells(.Rows.Count,"A").End(xlUp).Row
End With

 

[FARAZ QURESHI]

Thanx Nigel

But can you devise a "complete" procedue as to reach the first empty row of
the current worksheet (whatever may the name be of the sheet)?

 

[Bob Phillips]

Just replace

With sheets("Sheet1")

with

With Activesheet

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[FARAZ QURESHI]

Thanx Bob,

But where & how can I place this code in a workbook module? I also want to
attach a shortcut key to such a macro so as to GOTO the cell in column A next
to last row filled.

Thanx again

 

[Bob Phillips]

Mine was a suggested change to Nigel's code.

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)