Copy a range and not the entire row - excel

Question

I have code for matching values in column 'B' with the value in Cell 'M15' and copy and delete those rows.
I only need to copy and delete a range (A to J) and not the entire row.
Sub MoveRows()
Dim Sht1 As Worksheet, Sht3 As Worksheet
Dim tfRow As Range, C As Range
Dim CopyRng As Range
Dim LastRow As Long
Application.ScreenUpdating = False
Set Sht1 = Sheets("Sheet1")
Set Sht3 = Sheets("Sheet3")
With Sht1
LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
Set tfRow = .Range("B2:B" & LastRow)
For Each C In tfRow
If IsEmpty(C) Then
Exit Sub
End If
If C.Value = .Range("M15").Value Then
If Not CopyRng Is Nothing Then
Set CopyRng = Application.Union(CopyRng, C)
Else
Set CopyRng = C
End If
End If
Next C
End With
If Not CopyRng Is Nothing Then
LastRow = Sht3.Cells(Sht3.Rows.Count, "B").End(xlUp).Row
CopyRng.EntireRow.Copy Destination:=Sht3.Range("A" & LastRow + 1)
CopyRng.EntireRow.Delete (xlShiftUp)
End If

Answer 1

The basic code below uses an auto-filter(much faster then looping) and copies the visible cells in the range to the first empty cell in column A.
Deleting part of your data will cause the rows to shift and possible screw up your data. I also provided a line of code to only clear you range.
Dim ws1 As Worksheet, ws3 As Worksheet, lRow As Long, Rng As Range
Set ws1 = ThisWorkbook.Sheets("Sheet1")
Set ws3 = ThisWorkbook.Sheets("Sheet3")
lRow = ws3.Cells(Rows.Count, 1).End(xlUp).Row
Set Rng = ws1.Range("A1").CurrentRegion
Rng.AutoFilter Field:=2, Criteria1:=ws1.Range("M15").Value
ws1.Range(Cells(2, 1), Cells(Rng.Rows.Count, 10)).SpecialCells(xlCellTypeVisible).Copy _
Destination:=ws3.Range("A" & lRow + 1)
'You must clear the range and then remove the filter before deleting blank cells.
ws1.Range(Cells(2, 1), Cells(Rng.Rows.Count, 10)).SpecialCells(xlCellTypeVisible).Clear
ws1.Cells.AutoFilter
ws1.Range(Cells(2, 1), Cells(Rng.Rows.Count, 10)).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp