copying data

[kevin1970]

Hi
I am trying to copy the data from two sheets in to one

Sheets("Details").Range("a2:m2").Select
Selection.Copy

Dim Row As Long
Dim ws1 As Worksheet
Set ws1 = Worksheets("list")
Row = ws.Cells.Find(What:="", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False


this works well for a single sheet but don't know how to get the information from two sheets and add it to one sheet.
thanks
kevin

 

[jim may]

I don't believe I'd use the "keyword" Row as a variable as:

Dim Row As Long

Change as follows (the red portion) - and retry running...

Dim r As Long
Dim ws1 As Worksheet
Set ws1 = Worksheets("list")
r = ws.Cells.Find(What:="", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

 

[kevin1970]

Hi Jim
sorry i may have not explained it very well.
The coding works fine, what i am trying to achieve is coping one line from two work sheets (ie; two line in total from two work sheets) and place them into another worksheet.