Hi,
try
Sub copyrange()
'

With Sheets("Sheet1")
If Range("A2") = "ABC" Then
Rows(2).Copy


End If
End With



With Sheets("Sheet2").Range("A2")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
Application.CutCopyMode = False
End With

'
End Sub


"aditya" wrote:

i want to apply following condition

IN SHEET1 if A2="ABC"
Transfer all data in row 2 to row 2 in sheet 2

pls help