<div>
Hi<br />
<br />
How is RowTO defined ?<br />
<br />

<pre><code id="code-20-39705874-1">If RowTO = 1048576 Then
    MsgBox &quot;No Data&quot;
Else
    WS.Range(RowFM &amp; &quot;:&quot; &amp; RowTO).EntireRow.Copy WSCopy.Cells(MaxRowCopy, &quot;A&quot;)
End If</code></pre>
Regards
</div>


Hi

How is RowTO defined ?



If RowTO = 1048576 Then
    MsgBox "No Data"
Else
    WS.Range(RowFM & ":" & RowTO).EntireRow.Copy WSCopy.Cells(MaxRowCopy, "A")
End If

Regards

<div>
How do you calculate RowTo?
</div>


<div>
<div class="content wysiwyg-content">
I have the folowing code that will copy data from one sheet to another but when there is no data to copy it falls over and tell me Excel can not continue with available resources<br />
<br />
WS.Range(RowFM &amp;&nbsp;&quot;:&quot; &amp;&nbsp;RowTO).EntireRow.Copy WSCopy.Cells(MaxRowCopy, &quot;A&quot;)<br />
<br />
When I hover over RowTo it tells me it returns 1048576<br />
<br />
How do I stop it from falling over and trying to go to 1048576<br />
<br />
Thanks
</div>
</div>


I have the folowing code that will copy data from one sheet to another but when there is no data to copy it falls over and tell me Excel can not continue with available resources

WS.Range(RowFM & ":" & RowTO).EntireRow.Copy WSCopy.Cells(MaxRowCopy, "A")

When I hover over RowTo it tells me it returns 1048576

How do I stop it from falling over and trying to go to 1048576

Thanks

VBA RowTo .... stop it from going to end

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.