See if this idea helps.

Sub dm()
lastrow = Cells(Rows.Count, 3).End(xlUp).Row
If lastrow 7 Then
For i = 8 To lastrow
With Cells(i, 1).Resize(, 4)
..Copy 'etc
'.something else

End With
Next i
End If

End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"GEdwards" wrote in message
...
I receive a Run-time Error '13': Type mismatch on the "MsgBox" statement
shown below. Before continuing with the use of the "sourceRange" I just
want
to ensure
that I am picking up the correct data.

I am even wondering however if the line prior to the MsgBox, "Set
sourceRange..." is actually working.

Any suggestions to correct the type mismatch and display the actual values
within the source range?


Sub DisplayMat()
Dim sourceRange As Range

RowCount = 8
lastrow = Cells(Rows.Count, 3).End(xlUp).Row
If lastrow 7 Then
For Each qty In Range("A8:A" & lastrow)
If qty < "" Then
Set sourceRange = Range("A" & RowCount & ":" & "D" & RowCount)
MsgBox sourceRange 'I even tried "MsgBox sourceRange.value"
'Do more stuff here with the sourceRange and output to another
WSheet
End If
RowCount = RowCount + 1
Next
End If
End Sub