A macro to move or copy a row with a condition

[aysam]

Hi All
I need a macro to move or copy any row that has the word (( moved )) to another sheet with the same name.
the file has thousands of rows.
thanks in advance

 

[aysam]

Aysam_1.xlsm
	N
8
البيانات

 

[aysam]

Aysam_1(1) (1).xlsm
	A	B	C	D	E	F	G	H	I	J	K	L
7	م	الاســــــــــم	النوع	تاريخ الميلاد	يوم	شهر	سنة	الديانة	المدرسة الابتدائي	حالة القيد	التحويل	الفصل
8	1	احمد محمد احمد محمد السيد	ذكر					مسلم	اسامة بن زيد	مستجد
9	2	احمد محمد ذكي محفوظ الشريف	ذكر					مسلم	اسامة بن زيد	مستجد
10	3	احمد محمد فتحي عزب محمد	ذكر					مسلم	اسامة بن زيد	مستجد
11	4	احمد محمد لطفي محمد علي بركات	ذكر					مسلم	اسامة بن زيد	مستجد
12	5	احمد محمد محمود ياسين النشار	ذكر					مسلم	اسامة بن زيد	مستجد
13	6	احمد محمود حسن محمود حسن	ذكر					مسلم	اسامة بن زيد	مستجد
البيانات

 

[mumps]

Unfortunately, I can't work with the screen shot you posted because I don't understand your language.

 

[aysam]

Thanks so much
I tried this line of code you offered

.Range("A2:L" & LastRow).SpecialCells(xlCellTypeVisible).Delete shift:=xlUp

but It still deletes the entire row
What I need
is to delete the range.( A: L ). in sheet 1
Hope I'm clear

 

[mumps]

Try:

Sub MoveRows()
    Application.ScreenUpdating = False
    Dim LastRow As Long, srcWS As Worksheet, desWS As Worksheet, rng As Range
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Set srcWS = Sheets("Sheet1")
    Set desWS = Sheets("Moved")
    With srcWS
        .Cells(1, 1).CurrentRegion.AutoFilter 6, "moved"
        .AutoFilter.Range.Offset(1).Copy desWS.Cells(desWS.Rows.Count, "A").End(xlUp).Offset(1)
        Set rng = .Range("A2:L" & LastRow).SpecialCells(xlCellTypeVisible)
        .Range("A1").AutoFilter
        rng.Delete shift:=xlUp
    End With
    Application.ScreenUpdating = True
End Sub

 

[aysam]

sounds good but I should try

 

[aysam]

It works as I hoped
Thanks so much

 

[mumps]

You are very welcome.