Thread: rewrite in range

Hello,

I have this piece of code that each time that sets a range and assign
this data to the range.

Dim rngNextCell As Range
Set rngNextCell = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)


rngNextCell.Resize(UBound(vartbl, 1) - LBound(vartbl, 1) + 1,
UBound(vartbl, 2) - LBound(vartbl, 2) + 1).Value = vartbl


What I would like to do it that the next time a run this macro, the
actual range will be rewrited by the new range

Dim rngNextCell As Range
Dim r as Range
on Error Resume Next
set rngNextCell = Range("MyData").RefersToRange
On Error goto 0
if rngNextCell is nothing then
Set rngNextCell = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
End if

set r = rngNextCell(1).Resize(UBound(vartbl, 1) - LBound(vartbl, 1) + 1,
UBound(vartbl, 2) - LBound(vartbl, 2) + 1).Value

r = vartbl
r.Name = "MyData"

--
Regards,
Tom Ogilvy


"ina" wrote:

> Hello,
>
> I have this piece of code that each time that sets a range and assign
> this data to the range.
>
> Dim rngNextCell As Range
> Set rngNextCell = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
>
>
> rngNextCell.Resize(UBound(vartbl, 1) - LBound(vartbl, 1) + 1,
> UBound(vartbl, 2) - LBound(vartbl, 2) + 1).Value = vartbl
>
>
> What I would like to do it that the next time a run this macro, the
> actual range will be rewrited by the new range
>
>

thank you tom