I want to copy a row of data in one worksheet (Wkst 1) to the first blank row
in another worksheet (Wkst 2). The problem is that Wkst 2 has an additional
column as column 1, so I want to copy the row (which starts on column A) in
Wkst 1 to Wkst 2 starting at column B.


If IsError(Application.Match(CStr(R.Value), V, 0)) = True Then
R.EntireRow.Copy Sheets("Issues").Range("B65536").End(xlUp) (2)
.EntireRow.PasteSpecial Paste:=xlPasteValues


This code copies to Wkst 2, but to column A, not column B!

Please help!

Thanks
Pam

You are copying and pasting the entire row so you can not define the column
as you are working with all of the columns in that row.
--
HTH...

Jim Thomlinson


"PamG" wrote:

> I want to copy a row of data in one worksheet (Wkst 1) to the first blank row
> in another worksheet (Wkst 2). The problem is that Wkst 2 has an additional
> column as column 1, so I want to copy the row (which starts on column A) in
> Wkst 1 to Wkst 2 starting at column B.
>
>
> If IsError(Application.Match(CStr(R.Value), V, 0)) = True Then
> R.EntireRow.Copy Sheets("Issues").Range("B65536").End(xlUp) (2)
> .EntireRow.PasteSpecial Paste:=xlPasteValues
>
>
> This code copies to Wkst 2, but to column A, not column B!
>
> Please help!
>
> Thanks
> Pam
>
>

Pam
Copy just the occupied cells in that row instead of the whole row, then
paste to one cell in Column B of the other sheet. HTH Otto
"Jim Thomlinson" <James_Thomlinson@owfg-Re-Move-This-.com> wrote in message
news:BB53A568-1F66-42DF-9D27-(E-Mail Removed)...
> You are copying and pasting the entire row so you can not define the
> column
> as you are working with all of the columns in that row.
> --
> HTH...
>
> Jim Thomlinson
>
>
> "PamG" wrote:
>
>> I want to copy a row of data in one worksheet (Wkst 1) to the first blank
>> row
>> in another worksheet (Wkst 2). The problem is that Wkst 2 has an
>> additional
>> column as column 1, so I want to copy the row (which starts on column A)
>> in
>> Wkst 1 to Wkst 2 starting at column B.
>>
>>
>> If IsError(Application.Match(CStr(R.Value), V, 0)) = True Then
>> R.EntireRow.Copy Sheets("Issues").Range("B65536").End(xlUp)
>> (2)
>> .EntireRow.PasteSpecial Paste:=xlPasteValues
>>
>>
>> This code copies to Wkst 2, but to column A, not column B!
>>
>> Please help!
>>
>> Thanks
>> Pam
>>
>>