How do I find the blank cell in a specific column(M), delete all blank rows
below, and then select the cells with data which is from Column A:M.

Thanks.

My problem is deleting the empty rows after the last cell with data, then
selecting the cells to loop tru until end of row with data.

Below are few of my codes. It is allover the place.

im cur_rng As Range
Columns("M:M").Select
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Activate

For Each cur_rng In Selection
If IsEmpty(cur_rng) Then
If cur_rng.Row 2 Then
cur_rng.Value = cur_rng.Offset(-1, 0).Value
End If
End If
Next cur_rng

when removing empty rows, I have always found it useful to start at the
bottom of the range and go up. For example:
I place my cursor in the last row of the range and then run this
do until activecell.row=1
activecell.offset(-1,0).select
if activecell.offset(1,0).value="" then
activecell.offset(1,0).entirerow.delete
end if
loop

"mju" wrote:

How do I find the blank cell in a specific column(M), delete all blank rows
below, and then select the cells with data which is from Column A:M.

Thanks.

My problem is deleting the empty rows after the last cell with data, then
selecting the cells to loop tru until end of row with data.

Below are few of my codes. It is allover the place.

im cur_rng As Range
Columns("M:M").Select
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Activate

For Each cur_rng In Selection
If IsEmpty(cur_rng) Then
If cur_rng.Row 2 Then
cur_rng.Value = cur_rng.Offset(-1, 0).Value
End If
End If
Next cur_rng

LastRow = Range("M1").End(xlDown).Row
Rows((LastRow + 1) & ":" & Rows.Count).Delete

DataRange = Range("A1:M" & LastRow)


"mju" wrote:

How do I find the blank cell in a specific column(M), delete all blank rows
below, and then select the cells with data which is from Column A:M.

Thanks.

My problem is deleting the empty rows after the last cell with data, then
selecting the cells to loop tru until end of row with data.

Below are few of my codes. It is allover the place.

im cur_rng As Range
Columns("M:M").Select
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Activate

For Each cur_rng In Selection
If IsEmpty(cur_rng) Then
If cur_rng.Row 2 Then
cur_rng.Value = cur_rng.Offset(-1, 0).Value
End If
End If
Next cur_rng

I left the work SET off the code

LastRow = Range("M1").End(xlDown).Row
Rows((LastRow + 1) & ":" & Rows.Count).Delete

Set DataRange = Range("A1:M" & LastRow)


"mju" wrote:

How do I find the blank cell in a specific column(M), delete all blank rows
below, and then select the cells with data which is from Column A:M.

Thanks.

My problem is deleting the empty rows after the last cell with data, then
selecting the cells to loop tru until end of row with data.

Below are few of my codes. It is allover the place.

im cur_rng As Range
Columns("M:M").Select
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Activate

For Each cur_rng In Selection
If IsEmpty(cur_rng) Then
If cur_rng.Row 2 Then
cur_rng.Value = cur_rng.Offset(-1, 0).Value
End If
End If
Next cur_rng

thanks alot!!!! it worked!!! U guys rock!!!***doing the moonwalk dance:)-**

"Joel" wrote:

I left the work SET off the code

LastRow = Range("M1").End(xlDown).Row
Rows((LastRow + 1) & ":" & Rows.Count).Delete

Set DataRange = Range("A1:M" & LastRow)


"mju" wrote:

How do I find the blank cell in a specific column(M), delete all blank rows
below, and then select the cells with data which is from Column A:M.

Thanks.

My problem is deleting the empty rows after the last cell with data, then
selecting the cells to loop tru until end of row with data.

Below are few of my codes. It is allover the place.

im cur_rng As Range
Columns("M:M").Select
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Activate

For Each cur_rng In Selection
If IsEmpty(cur_rng) Then
If cur_rng.Row 2 Then
cur_rng.Value = cur_rng.Offset(-1, 0).Value
End If
End If
Next cur_rng

Hi,

This isn't clear. We find the last cell in column M and then what? Delete
blank rows above that or below it?

Mike

"mju" wrote:

How do I find the blank cell in a specific column(M), delete all blank rows
below, and then select the cells with data which is from Column A:M.

Thanks.

My problem is deleting the empty rows after the last cell with data, then
selecting the cells to loop tru until end of row with data.

Below are few of my codes. It is allover the place.

im cur_rng As Range
Columns("M:M").Select
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Activate

For Each cur_rng In Selection
If IsEmpty(cur_rng) Then
If cur_rng.Row 2 Then
cur_rng.Value = cur_rng.Offset(-1, 0).Value
End If
End If
Next cur_rng