نقل من شيت لآخر رغم الاختلاف بينهما بالمعلومات

Dim m As Long

Set wsData = ThisWorkbook.Worksheets("data")

m = wsData.Cells(Rows.Count, 1).End(xlUp).Row + 1

If ComboBox30.Value = "äÚã" Then

    With wsData

        .Cells(m, 1).Value = wsMkt.Cells(rowNum, 1).Value

        .Cells(m, 2).Value = wsMkt.Cells(rowNum, 7).Value

        .Cells(m, 3).Resize(, 4).Value = wsMkt.Cells(rowNum, 2).Resize(, 4).Value

        .Cells(m, 7).Resize(, 5).Value = wsMkt.Cells(rowNum, 10).Resize(, 4).Value

        .Cells(m, 20).Value = wsMkt.Cells(rowNum, 18).Value

        .Cells(m, 22).Value = wsMkt.Cells(rowNum, 20).Value

        .Cells(m, 25).Resize(, 2).Value = wsMkt.Cells(rowNum, 22).Resize(, 2).Value

    End With

End If