Sub FindFirstCellNextRow1()
Dim x As Integer
'==============================
Daily.Select
'==============================
x = ActiveSheet.UsedRange.Rows.Count
ActiveCell.SpecialCells(xlLastCell).Select
ActiveCell.EntireRow.Cells(1, 1).Offset(1, 0).Activate
End Sub
يظهر لي رسالة خطا
ويكون الكود هذة الجملة باللون الاصفر هكذا فما الحل