Need alot of help
what's wrong with my code???? i need it to cut one by one A2, A3, A4, .... and paste to A1
im still new to VBA and no one in my office seems to be able to have the time to help me u
-----------------------------------------------------------
Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+g
'
Range("A2").Select
Selection.Cut
Range("A1").Select
ActiveSheet.Paste
Sub FindNextRow()
Dim LastRow As Long
Dim LastCol As Long
' Find the FIRST real row
LastRow = ActiveSheet.Cells.Find(What:="*", _
SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row
' Find the LAST real column
LastCol = ActiveSheet.Cells.Find(What:="*", _
SearchDirection:=xlNext, _
SearchOrder:=xlByColumns).Column
'Select the ACTUAL Used Range as identified by the
'variables identified above
ActiveSheet.Cells(LastRow - 1, 1).Select
End Sub