Hi,
I have the following code in a sheet that currently copies all rows with a 1 in column F to another worksheet.
Dim LR As Long, i As Long
With Sheets("Jan")
LR = .Range("F" & Rows.Count).End(xlUp).Row
For i = 1 To LR
If .Range("F" & i).Value = 1 Then .Rows(i).copy Destination:=Sheets("Matrix input sheet").Range("A" & Rows.Count).End(xlUp).Offset(1)
Next i
End With
However what I'd really like the code to do is only copy the data from columns A-E in the Jan sheet and nothing else and that once it copies it selects the next empty cell in column A in the 2nd sheet
Any help much appreciated, thanks.
I have the following code in a sheet that currently copies all rows with a 1 in column F to another worksheet.
Dim LR As Long, i As Long
With Sheets("Jan")
LR = .Range("F" & Rows.Count).End(xlUp).Row
For i = 1 To LR
If .Range("F" & i).Value = 1 Then .Rows(i).copy Destination:=Sheets("Matrix input sheet").Range("A" & Rows.Count).End(xlUp).Offset(1)
Next i
End With
However what I'd really like the code to do is only copy the data from columns A-E in the Jan sheet and nothing else and that once it copies it selects the next empty cell in column A in the 2nd sheet
Any help much appreciated, thanks.