On Dec 16, 5:50 pm, "Don Guillett" wrote:
Start over and tell us exactly what you want to do with before/after
examples. It probably can be that you copy all at once instead of one at a
time.
but to answer your question about copy range

.Rows(OldShRowCount).Copy

to
.range(cells(OldShRowCount,"a"),cells(OldShRowCoun t,"f")).Copy _
Sheets("Sheet2").range(NewShRowCount,"a")

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"K" wrote in message

...



I been sent macro by one of online friend . This macro copies entire
row from sheet1 to sheet2. what should i do that this macro only copy
rows from cell A to cell F instead of coping entire row. please any
body can give any suggestions or macro

Sub movedata()

OldShRowCount = 1
NewShRowCount = 2

With Sheets("Sheet1")
Do While .Range("D" & OldShRowCount) < ""
If (.Range("D" & OldShRowCount) = .Range("D" & (OldShRowCount + 1)))
And (.Range("E" & OldShRowCount) < .Range("E" & (OldShRowCount + 1)))
Then
.Rows(OldShRowCount).Copy
Destination:=Sheets("Sheet2").Rows(NewShRowCount)
NewShRowCount = NewShRowCount + 1
End If
OldShRowCount = OldShRowCount + 1
Loop
End With

End Sub- Hide quoted text -

- Show quoted text -

Thanks Don this really works