Move text to another cell

charlesdh · #6 06-05-2017, 10:56 AM

Hi,

Sorry I have not responded to you. But, NoSparks code does work for me.
However, if you have a "Header" it will not work as you want. I modified Nosparks code to this. Hope NoSparks does not mind.

Code:

Sub nn()
With Sheets("Sheet1")
    'get last row of col A
    lr = .Cells(Rows.Count, "A").End(xlUp).Row
    'move second value
    For i = 2 To lr Step 3
        .Cells(i, 2).Value = .Cells(i + 1, 1).Value
    Next i
    'remove rows where B is blank
    .Range("B2:B" & lr).SpecialCells(xlBlanks).EntireRow.Delete
End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
extract time from a cell and move it to front of cell before text	ewso	Excel	20	03-19-2017 11:34 AM
Move the data at bottom cell to right side of the cell	kcyag91	Excel	1	01-28-2016 12:28 AM
Macro to move focus after entry in a cell	Phil H	Excel Programming	3	06-18-2015 01:20 PM
Move data from 1 cell to another cell	Catalin.B	Excel	1	06-25-2011 12:51 PM
Auto-populate an MS Word table cell with text from a diff cell?	dreamrthts	Word Tables	0	03-20-2009 01:49 PM