All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.
Sub MoveOver1() Dim Cell As Range Application.ScreenUpdating = False With ActiveSheet 'This is where the code checks for which lines have data so just use a column that has data For Each Cell In Intersect(.[K:K], .UsedRange) 'This checks for the blank space so change the Column letter to match the cell you are checking If .Cells(Cell.Row, "L").Value = "" Then 'This is the move part. It will cut the range from the first to the second and paste in the column set after the .Cut part .Range(.Cells(Cell.Row, "K"), .Cells(Cell.Row, "L")).Cut .Cells(Cell.Row, "L") End If Next Cell End With Application.ScreenUpdating = True End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
20 Experts available now in Live!