Subtract two ranges and clear the contents from result
<p>I'm trying to subtract RangeA - RangeA+offset to get a new range. After this i need to clear all the values within it. My problem is that the variable columnrange is empty and i'm unable to realize what i'm doing wrong.</p>

<pre><code>Dim rng1 As String
Dim rangeA As Range
Dim columnrange As Range
Dim clearrange As Range

rng1 = TextBoxA.Value

If Not IsNull(RangeboxA.Value) Then
    On Error Resume Next
    Set rangeA = Sheets("Plan1").Range(RangeboxA.Value)
        rangeA.Select
        Selection.Copy
        rangeA.Offset(0, rng1).Select
        ActiveSheet.Paste
        columnrange = rangeA.Resize(rangeA.Rows.Count, rangeA.Columns.Count + rng1).Value
        columnrange.Select
    On Error Resume Next
    If rangeA Is Nothing Then MsgBox "Verificar informação A"

    End If
</code></pre>