VBA find the FIRST real row

[QuaDen]

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

[Paul_Hossler]

1. Are you missing an 'End Sub'?

2. You said Find First real row, but variables are LastRow and LastCOl

3. "i need it to cut one by one A2, A3, A4, .... and paste to A1" -- not sure what this means

4. Can you attach a small workbook showing what you have and what you want?





Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+g
'
Range("A2").Select
Selection.Cut
Range("A1").Select
ActiveSheet.Paste
End Sub ' <<----------------------------------------------------------

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

[QuaDen]

Hi Paul

This is my workbook

[QuaDen]

I'm test this code but it's not work:



' Find the FIRST real row
FirstRow = ActiveSheet.Cells.Find(What:="*", _
SearchDirection:=xlNext, _
SearchOrder:=xlByRows).Row

' Find the FIRST real column
FirstCol = ActiveSheet.Cells.Find(What:="*", _
SearchDirection:=xlNext, _
SearchOrder:=xlByColumns).Column

[gmayor]

Even with the worksheet it is difficult to understand the aim of the process.
However, based on your original post I think the following may be what you require.


Range("A1").Delete Shift:=xlUp

[QuaDen]

Even with the worksheet it is difficult to understand the aim of the process.
However, based on your original post I think the following may be what you require.


Range("A1").Delete Shift:=xlUp

wow, thank gmayor so much, that's my repuire