Reference partial row in VBA?

Question

Hi, I'm trying to parse through some financial data in Sheet1, and populate other sheets based on criteria.  I did find some vba code that does what I want (almost).  This code copies the entire row to the destination sheet, which works, but I'd
like to put some calculations off to the right side of the data (for totals, etc).  With this code, if the entire row is copied to the destination sheet, it overwrites my formulas.  Can someone tell me how to reference a partial row for both the
source and destination sheets so that it only copies the data I need?  Instead of c.EntireRow, I'm hoping there's a better reference.
Of course, if there's a better way entirely, please share!  Any help is greatly appreciated.
Kevin
Sub OJC_Copy()
Dim MyRange As Range, CopyRange As Range
Set Src = Sheets("Sheet1") 'Source data
Set dst = Sheets("OJC") 'Destination sheet
dst.UsedRange.ClearContents
LastRow = Src.Cells(Cells.Rows.Count, "A").End(xlUp).Row
Set MyRange = Src.Range("H2:H" & LastRow)
For Each c In MyRange
If (c.Value) Like "SJ*" Then
        If CopyRange Is Nothing Then
                Set CopyRange = c.EntireRow
        Else
                Set CopyRange = Union(CopyRange, c.EntireRow)
        End If
    End If
Next
If Not CopyRange Is Nothing Then
CopyRange.Copy Destination:=dst.Range("a1")
End If
End Sub

Answer 1

So, my latest iteration of this is below:  If I set a watch on Src.Range("H" & Myrow).Value Like "MV*"
It does evaluate to "true" when the code hits it, but it then skips right over the last line: CopyRange.Copy Destination:=dst.Range("a1"), and never runs the code in between (doesn't even try).
It also halts with run-time error '91' Object variable or With Block variable not set, Which I think is related to the fact that CopyRange never populates with anything.
As usual, any advice will be greatly appreciated.
Thanks!
Kevin
Sub Filter_MVH()
Dim MyRange As Range, CopyRange As Range
Set Src = Sheets("Sheet1") 'Source data
Set dst = Sheets("MVH") 'Destination sheet
dst.Range("A:L").ClearContents
For Myrow = 2 To LastRow
If Src.Range("H" & Myrow).Value Like "MV*" Then
    If CopyRange Is Nothing Then
        Set CopyRange = Src.Range("A" & Myrow & ":L" & Myrow)
    Else
        Set CopyRange = Union(CopyRange, Src.Range("A" & Myrow & ":L" & Myrow))
    End If
End If
Next Myrow
CopyRange.Copy Destination:=dst.Range("a1")
End Sub