QuaDen
05-03-2016, 06:22 PM
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 :banghead: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
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 :banghead: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