Visual Basic - Seleccion de datos aleatorios

buenas tardes.

solicitando de su apoyo para darle solucion a una duda que tengo, tengo el sig codigo que genere al momento de grabar una macro con excel

Sheets("Infrm").Select
Range("A2:E2").Select
Selection.Copy
Range("F2").Select
Selection.End(xlDown).Select
Range("E2881").Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlUp)).Select
Range("A3:E2881").Select
Range("E2881").Activate
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

el cual utilizo para pegarle unas formulas que rekiero para un reporte que presento, pero el detalle es que como los datos cambian todos los dias (E22881) algunas veces van a ser mas renglones o menos renglones.

como le puedo hacer para que dependiendo de los renglones que tenga la macro la tome por automatico y no estar ajustando el rango directamente en el VB

en espera de sus comentarios

slds