Setting lastrow [to activecell column last row] as the vba loops along....Please advice.

[pedie]

I'm looping through all the col till it is blank.
If col if 1st row is not blank i want to define lastrow to this col last row. for example
range("A" & rows.count).end(xlup).row
i want "A" row above to be x row...

I think i'm making sense...please help me out;

[/FONT]
[FONT=Courier New]Sub test()
Dim LastCol As Integer, c As Integer, myrng as range
LastCol = ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.Count).Column

For c = 1 To LastCol
  If Cells(1, c).Value <> "" Then[/FONT]
[FONT=Courier New]     x= Cells(1, c).Value[/FONT]
[FONT=Courier New][COLOR=blue][I][B]     lastrow = ?? c column last row[/B][/I][/COLOR][/FONT][FONT=Courier New] [/FONT]
[FONT=Courier New]     set myrng = c.offset(1,0).resize(lastrow)[/FONT]
[FONT=Courier New]End If
Next c
End Sub

 

[p45cal]

set myrng = range(cells(1,c.column),cells(rows.count,c.column).end.(xlup))
? untested

 

[pedie]

p45cal, thanks for helping....
It is retuning compile error...identifier or bracketed expression...

 

[p45cal]

Set myrng = Range(Cells(1, c), Cells(Rows.Count, c).End(xlUp))

Sub test()
Dim LastCol As Integer, c As Integer, myrng As Range
LastCol = ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.Count).Column
For c = 1 To LastCol
    If Cells(1, c).Value <> "" Then
        x = Cells(1, c).Value
        Set myrng = Range(Cells(1, c), Cells(Rows.Count, c).End(xlUp))
       ' myrng.Select
    End If
Next c
End Sub

 

[pedie]

I also tried this way but still errors...

Please help
Sub Test()
Dim lr As Long
lr = Cells(Columns(ActiveCell.Column), Rows.Count).End(xlUp).Row
ActiveCell.Resize(lr).copy
End Sub

 

[pedie]

p45cal, thanks again for helping....it is working perfect now...

Set myrng = Range(Cells(1, c), Cells(Rows.Count, c).End(xlUp))

Sub test()[/FONT]
[FONT=Courier New]Dim LastCol As Integer, c As Integer, myrng As Range[/FONT]
[FONT=Courier New]LastCol = ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.Count).Column[/FONT]
[FONT=Courier New]For c = 1 To LastCol[/FONT]
[FONT=Courier New]    If Cells(1, c).Value <> "" Then[/FONT]
[FONT=Courier New]        x = Cells(1, c).Value[/FONT]
[FONT=Courier New]        Set myrng = Range(Cells(1, c), Cells(Rows.Count, c).End(xlUp))[/FONT]
[FONT=Courier New]       ' myrng.Select[/FONT]
[FONT=Courier New]    End If[/FONT]
[FONT=Courier New]Next c[/FONT]
[FONT=Courier New]End Sub[/FONT]
[FONT=Courier New]