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