Utilice RANGE en VBA para copiar datos en un rango a otra hoja de trabajo

El programa tiene varios errores: el número de Celdas no puede ser cero y el número mínimo es 1; UseRange debe ser UsedRange si se usan Celdas entre corchetes de Rango, es necesario que haya dos, una es; el inicio y el otro Para la terminación, si solo hay una celda, no es necesario incluirla en el rango. El procedimiento modificado es el siguiente.

Espero que te haya resultado claro y útil. o(∩_∩)o

Con hojas de trabajo(1)

.Range(.Cells(4, 1), .Cells(UsedRange.Rows.Count, 1)). Copiar ' ←Error de definición de aplicación o definición de objeto

Terminar con

Con Hojas de trabajo(1)

.Cells(4, 1).Select

ActiveSheet.Paste

Terminar con