View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
pk pk is offline
external usenet poster
 
Posts: 27
Default Copying a range of cells

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...

-----Original Message-----
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
.