Moonbeam111
Board Regular
- Joined
- Sep 24, 2018
- Messages
- 88
- Office Version
- 365
- 2010
I have a cells that look like something like this
I am trying to create a macro that will essentially delete the cells "Number 1" and "Word 1" in Range("G91:H91") and moves/copies the rest of the cells up 1 row. "Number 2" and "Word 2" would get placed where "Number 1 and Word 1" were etc...
I wrote this but it sometimes does not work. Is there a better alternative? The idea seems simple enough but I am having trouble.
Number 1 | Word 1 |
Number 2 | Word 2 |
Number 3 | Word 3 |
Number 4 | Word 4 |
I am trying to create a macro that will essentially delete the cells "Number 1" and "Word 1" in Range("G91:H91") and moves/copies the rest of the cells up 1 row. "Number 2" and "Word 2" would get placed where "Number 1 and Word 1" were etc...
I wrote this but it sometimes does not work. Is there a better alternative? The idea seems simple enough but I am having trouble.
VBA Code:
If Range("G92") <> "" Then
Sheets("Sheet1").Range("G91:H91", Sheets("Sheet1").Range("G91").End(xlDown)).Copy
Else: Sheets("Sheet1").Range("G91:H91").Copy
End If
Sheets("Sheet1").Range("G90:H90").PasteSpecial xlValues
If Range("G90") = "" Then GoTo skiptothere
Sheets("Sheet1").Range("G150").End(xlUp).ClearContents
Sheets("Sheet1").Range("H150").End(xlUp).ClearContents
skiptothere: