View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
L. Howard L. Howard is offline
external usenet poster
 
Posts: 852
Default Copy to a mid column range Row 10 - Row 20

Trying to convet the commented out line to copy to row 10 and offset from there on down to row 20.

Assumes there is data in the rows above 10 and below 20, so my availsble range to copy is between 10 to 20.

The "FERow" part of a previous code I failed to properly add instructive comments about and thus I need some redirection.

Thanks,
Howard


Sub CopyToRange_ArrOut()
Dim arrOut As Variant
arrOut = Range("C12:F12")


' FERow = WorksheetFunction.Max(10, .Cells(20, 1).End(xlUp).Offset(1, 0).Row)
' .Cells(FERow, 1).Resize(columnsize:=4) = arrOut


Cells(Rows.Count, "C").End(xlUp)(2) _
.Resize(columnsize:=Range("C2:F2").Columns.Count) = arrOut

End Sub