Paste problem
 

Hi,
How can i paste starting from the current cell(that's currently selected)?
I'm using the below code perfectly,but i need to paste the data in the cell
that's currently selected,not to the cell "C4" as indicated below...


Workbooks.Open Filename:= _
"T:\Mourad's Team\Copy of TALISMA\Service Line Reports\Talisma
Report Template.xls"

Range("B9:Z9").Select
Selection.Copy
Windows("Daily report 07.xls").Activate
Range("C4").Select
PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F17").Select

Paste problem
 

Ideally just remove the
Range("C4").Select
and replace with
ActiveCell.Select

This will insure that only a single cell is Selected.

--
Gary''s Student - gsnu200749


"Pietro" wrote:

Hi,
How can i paste starting from the current cell(that's currently selected)?
I'm using the below code perfectly,but i need to paste the data in the cell
that's currently selected,not to the cell "C4" as indicated below...


Workbooks.Open Filename:= _
"T:\Mourad's Team\Copy of TALISMA\Service Line Reports\Talisma
Report Template.xls"

Range("B9:Z9").Select
Selection.Copy
Windows("Daily report 07.xls").Activate
Range("C4").Select
PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F17").Select

Paste problem
 

Thanx..
I need also to got to the next tab (named "Italian") and select the first
empty row in the column C to continue the paste operation,how can i do this?

"Gary''s Student" wrote:

Ideally just remove the
Range("C4").Select
and replace with
ActiveCell.Select

This will insure that only a single cell is Selected.

--
Gary''s Student - gsnu200749


"Pietro" wrote:

Hi,
How can i paste starting from the current cell(that's currently selected)?
I'm using the below code perfectly,but i need to paste the data in the cell
that's currently selected,not to the cell "C4" as indicated below...


Workbooks.Open Filename:= _
"T:\Mourad's Team\Copy of TALISMA\Service Line Reports\Talisma
Report Template.xls"

Range("B9:Z9").Select
Selection.Copy
Windows("Daily report 07.xls").Activate
Range("C4").Select
PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F17").Select