macro que seleccione fila con datos

[andielu]

ya tengo otra opcion d codigo q segun yo ya solo necesita una correccion o bueno falta:

Dim myrange As Range
Sub Macro4()
' Acceso directo: CTRL+i
'busca la ultima columna
If WorksheetFunction.CountA(Cells) > 0 Then
ultimacol = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
End If
Set myrange = Range(Selection, Range("bo65536").End(xlUp))
aqui donde yo manualmente le pongo la columna(BO) pero quiero que ahi la columna pueda ser variable, aunque generalmente es la utlima columna
myrange.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub