VBA copy data from different sheets from row above where cell text "subtotal" - excel

Question

Want to copy Data from Different worksheets to a sheet called
"Summary". Data needs to be copy from one Row above (where row has text
"subtotal") to Row/Column A2. Below is my VBA code, but getting error MESSAGE " Compiler error, Else without If ", not sure what i am missing.
please help me.
Sub CombineData()
Dim Sht As Worksheet
For Each Sht In ActiveWorkbook.Worksheets
If Sht.Name <> "Summary" And Left(Sht.Name, 1) = "1" Or Left(Sht.Name, 1) = "4" Or Left(Sht.Name, 1) = "6" Or Left(Sht.Name, 1) = "7" Then
Sht.Select
'LastRow = Range("A65536").End(xlUp).Row
Set MyRng = Range(Cells(1, "d"), Cells(Rows.Count, "d").End(xlUp))
For Each cell In MyRng
If cell.Value = "Subtotal" Then cell.Value = cell.Offset(-1, 0).Value
.Range("A2", "M&MyRng").Copy
Sheets("Summary").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Sht.Select
Range("p1").ClearContents
Else
End If
Next Sht
End Sub

Answer 1

Your code has some flaws.
Identation. Code inside Sub, For, If needs to be identated with tab or 4 spaces.
End. Each Sub has End Sub, each If as and End If, each For has and End For
Values. Instead of copying and pasting, you can set .Range() = new_value
String comparison. If cell.Value = "Subtotal" will fail if the user writes subtotal or SUBTOTAL. That is why I prefer to lowercase the cell value using LCase() function.
You may want to use the following code
Sub CombineData()
Dim Sht As Worksheet
'Identify Sheet called Summary
Dim wsSummary As Worksheet
Set wsSummary = ActiveWorkbook.Sheets("Summary")
For Each Sht In ActiveWorkbook.Worksheets
If Sht.Name <> "Summary" And (Left(Sht.Name, 1) = "1" Or Left(Sht.Name, 1) = "4" Or Left(Sht.Name, 1) = "6" Or Left(Sht.Name, 1) = "7") Then
For Each cell In Sht.UsedRange.Cells
If LCase(cell.Value) = "subtotal" Then
'Copy cell above subtotal to the last row in column A of Summary sheet
wsSummary.Range("A65536").End(xlUp).Offset(1, 0) = cell.Offset(-1, 0).Value
Sht.Range("p1") = cell.Offset(-1, 0).Value
End If
Next
End If
Next Sht
End Sub