intento copiar un rango variable dependiendo de un contador, de una hoja a otra, al copiar, me duplica datos, y no me respeta los rangos a copiar, necesito una mano por favor
Sheets("MATERIALES").Select
if range a2>2 and range a2<93 then
Range("A3:E49").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("PRESUPUESTO").Select
Range("I10").Select
if else range a2>93 and range a2 <145 then

Range("A3:E49").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("PRESUPUESTO").Select
Range("I10").Select

Range("a49:E75").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("PRESUPUESTO").Select
Range("I40").Select
if else range a2>93 and range a2 <145 then

Range("A3:E49").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("PRESUPUESTO").Select
Range("I10").Select

Range("a49:E75").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("PRESUPUESTO").Select
Range("I40").Select
if else range a2>93 and range a2 <145 then

Range("A3:E49").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("PRESUPUESTO").Select
Range("I10").Select

Range("a49:E75").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("PRESUPUESTO").Select
Range("I40").Select
if else range a2>93 and range a2 <145 then

Range("A3:E49").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("PRESUPUESTO").Select
Range("I10").Select

Range("a49:E75").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("PRESUPUESTO").Select
Range("I40").Select
if else range a2>145and range a2 <250 then

Range("A3:E49").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("PRESUPUESTO").Select
Range("I10").Select

Range("a49:E75").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("PRESUPUESTO").Select
Range("I40").Select

Range("a75:E140").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("PRESUPUESTO").Select
Range("I80").Select

end if
end sub