Dlanders05
New Member
- Joined
- Mar 17, 2023
- Messages
- 1
- Office Version
- 365
- Platform
- Windows
It can't be this hard. Please. ...and thank you so much.
'
' NIC Macro
'
' Keyboard Shortcut: Ctrl+Shift+A
'
Range("A431").Select
Selection.Cut Destination:=Range("C430")
Range("A432").Select
Selection.Cut Destination:=Range("B430")
Range("A433").Select
Selection.Cut Destination:=Range("D430")
Range("D430").Select
ActiveWindow.SmallScroll Down:=8
Range("A435").Select
Selection.Cut Destination:=Range("C434")
Range("A436").Select
Selection.Cut Destination:=Range("B434")
Range("A437").Select
Selection.Cut Destination:=Range("D434")
Range("D434").Select
End Sub
- Data is all in column A.
- Using a Cut/Paste to place data in a single row.
- Need macro to go to end of spreadsheet.
- Delete all blank rows.
- Would like to run this macro in multiple spreadsheets.
'
' NIC Macro
'
' Keyboard Shortcut: Ctrl+Shift+A
'
Range("A431").Select
Selection.Cut Destination:=Range("C430")
Range("A432").Select
Selection.Cut Destination:=Range("B430")
Range("A433").Select
Selection.Cut Destination:=Range("D430")
Range("D430").Select
ActiveWindow.SmallScroll Down:=8
Range("A435").Select
Selection.Cut Destination:=Range("C434")
Range("A436").Select
Selection.Cut Destination:=Range("B434")
Range("A437").Select
Selection.Cut Destination:=Range("D434")
Range("D434").Select
End Sub