Help modifying a macro

[PrimeTimeAction]

I have a macro (see below) that concatenates selected cells into the upper left cell. The problem is that it keeps the values in rest of selected cell untouched. I want it to either

• delete the text from the rest of the selected cells or
• delete the entire rows of these selected cells.

How can i do this.

Sub Macro1()
Dim r As Range
Dim rr As Range
Dim i As Integer
Dim t As String
i = 0
t = ""
For Each r In Selection
If i = 0 Then
i = 1
Set rr = r
End If
t = t & r.Value
Next
rr.Value = t
End Sub

 

[DanteAmor]

Check

    Dim c As Range
    For Each c In Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1)
        Selection.Cells(1, 1).Value = Selection.Cells(1, 1) & c.Value
        c.Value = ""
    Next
    Selection.SpecialCells(xlBlanks).EntireRow.Delete