Array Function to shift rows to the right in a range

Thank you guys.

Instead of using "xlToRight", how can I project the results on a different range?

Which Range? This will send the results to a helper Sheet1.

Sub aab_489()
Dim rcell As Range
Dim ws As Worksheet
Dim ws1 As Worksheet
Set ws = ActiveSheet
Set ws1 = Sheets("Sheet1")
ws.Range("B2:S19").Copy ws1.Range("B2")

ws1.Activate
For Each rcell In Range("B2:S19")
    If rcell.Value = "" Then
        Cells(rcell.Row, "B").Insert xlToRight
        Cells(rcell.Row, "B").Interior.ColorIndex = 15
    End If
Next rcell
Columns("T:AJ").Interior.ColorIndex = xlNone
End Sub

Thank you.

You're welcome. Glad to help out. Hope it does what you require. If it does then please comply with Forum Rule No. 9.


9. Acknowledge the responses you receive, good or bad. If your problem is solved, please say so clearly, and mark your thread as Solved: Click Thread Tools above your first post, select "Mark your thread as Solved". Or click the Edit button on your first post in the thread, Click Go Advanced, select [SOLVED] from the Prefix dropdown, then click Save Changes. If more than two days have elapsed, the Dropdown option or Edit button will not appear -- ask a moderator to mark it.