G
Greg Snidow
Greeings. I apologize if this is a double post, but my first attempt does
not seem to have shown up. I need to cut the active row from the active
sheet, and paste it into the first blank row on another sheet. So far, this
is what I have. I could do it by selecting the target sheet and row, but I
would like to avoid moving from the active sheet if possible. Thank you.
Sub Test()
Dim WS As Worksheet
Dim LastRow As Integer
'Cut the active row from the active sheet
ActiveCell.EntireRow.Cut
'Set the target sheet
Set WS = ActiveWorkbook.Sheets!held
'Set start row of the destination sheet
LastRow = 8
With WS
'Get the first blank row on destination sheet
For i = 8 To 300 Step 1
If Len(.Cells(i, 4).Value & "") > 0 Then
LastRow = LastRow + 1
End If
Next i
'Need to paste the row that was cut from the previous sheet
.Range("A" & LastRow).Paste
End With
End Sub
not seem to have shown up. I need to cut the active row from the active
sheet, and paste it into the first blank row on another sheet. So far, this
is what I have. I could do it by selecting the target sheet and row, but I
would like to avoid moving from the active sheet if possible. Thank you.
Sub Test()
Dim WS As Worksheet
Dim LastRow As Integer
'Cut the active row from the active sheet
ActiveCell.EntireRow.Cut
'Set the target sheet
Set WS = ActiveWorkbook.Sheets!held
'Set start row of the destination sheet
LastRow = 8
With WS
'Get the first blank row on destination sheet
For i = 8 To 300 Step 1
If Len(.Cells(i, 4).Value & "") > 0 Then
LastRow = LastRow + 1
End If
Next i
'Need to paste the row that was cut from the previous sheet
.Range("A" & LastRow).Paste
End With
End Sub