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

Para comenzar,

1- hay algunos errores de sintaxis:

if range a2>2 and range a2<93 then
Debe ser: if range("a2")>2 and range("a2")<93 then

2- en el código que pones copias varios rangos de celdas pero nunca la pegas en ningún lugar.

3- Otro error de sintaxis:

if else range a2>93 and range a2 <145 then
debe ser: if range("a2")>93 and range("a2")<145 then

__________________
Saludos,

Juan Carlos Carballo Quevedo