Copying a range of cells

  • Thread starter Thread starter MDC
  • Start date Start date
M

MDC

I need to copy data from 1 worksheet and paste it in a
different worksheet. the range will always start with
cell C3 and end with a cell in column I. The number of
rows vary. How can I accomplish this? Here's what i have
so far:

Dim lngLastRow As String
Dim myStartColumn, myEndColumn As String

lngLastRow = myDataSheet.UsedRange.Rows.Count
myStartColumn = 3
myEndColumn = myStartColumn + 7

???

Any help will be appreciated.
MDC
 
The following does the trick for me rather concisely.
Note that the "Find" always finds the last "filled" row
on the sheet. The "copy" method used can be preceded by
your workbook name when copying to another book...

xLastRow = Cells.Find(What:="*", _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row

Range("C3:I" & xLastRow).Select
Selection.Copy Destination:=Sheets("Sheet2").Range("A1")

Hope this helps you out...
 
have you tried
range("C1:I" & range("C1").end(xldown).row).copy

this should copy the range between C and I from row 1 down
to the first row with no data in it.
 
Back
Top