Hi,
The below code, which copies a region from Sheet1 to Sheet4 works with no
trouble at all...
But I need to modify it so that only the rows having an "X" on column A will
be copied.

Can anyone suggest an alteration?

'-------------------------
Sub Macro3()
' Macro3 Macro
Sheets("Sheet1").Activate
Range("A5:F400").Select
Selection.Copy
Range("A1").Select

Sheets("Sheet4").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1:F400").Select

Selection.Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlGuess,
_
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Range("A1").Select
End Sub
'----------------------------
TIA
J_J