P
Patrick C. Simonds
Can anyone tell me why the line "ActiveSheet.Paste" is not functioning? I
want to paste the contents of the clipboard onto the worksheet.
Sub Paste_Data()
Dim BCell, NBCell
Dim rng
Set rng = Cells(ActiveCell.Row, 1)
Application.ScreenUpdating = False
Range("B7").Select
For I = 1 To 65536
If ActiveCell.Value = Empty Then
BCell = "B" & CStr(I - 1)
NBCell = "B" & CStr(I - 2)
Exit Sub
Else
Range("B" & CStr(I + 1)).Select
End If
Next I
ActiveSheet.Paste
Application.ScreenUpdating = True
End Sub
want to paste the contents of the clipboard onto the worksheet.
Sub Paste_Data()
Dim BCell, NBCell
Dim rng
Set rng = Cells(ActiveCell.Row, 1)
Application.ScreenUpdating = False
Range("B7").Select
For I = 1 To 65536
If ActiveCell.Value = Empty Then
BCell = "B" & CStr(I - 1)
NBCell = "B" & CStr(I - 2)
Exit Sub
Else
Range("B" & CStr(I + 1)).Select
End If
Next I
ActiveSheet.Paste
Application.ScreenUpdating = True
End Sub