توابع تبدیل متغیرها در vba

[armey]

شماره سطر آخرین سلول دارای دیتا را تو ستون مورد نظر میده

بسیار بسیار سپاسگذارم دوست گرامی و محترم

در خصوص کپی اطلاعات هم راهنمایی بفرمایید ممنونتون میشم

فایل و کدی که شما لطف فرمودید این است :

Sub copyErsalruzbiKol()

Z = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
k = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row + 1


For i = 2 To Z


If Sheet1.Range("A" & i) <> "" Then


Sheet1.Range("A" & i & ":w" & i).Copy Destination:=Sheet2.Range("A" & k)


k = k + 1




End If
Next


Sheet2.Select


End Sub

فایل و کد بنده((شیت مبدا دارای فرمول است که برای نمونه فرمول ها حذف شده اند))

Sub copyErsalruzbiKol()

Z = Sheet43.Cells(Sheet43.Rows.Count, "A").End(xlUp).Row
o = Sheet18.Cells(Sheet18.Rows.Count, "A").End(xlUp).Row + 1


For o = 2 To Z


If Sheet43.Range("i" & o) <> "0" Then


Sheet43.Range("A" & o & ":w" & o).Copy Destination:=Sheet18.Range("A" & o)


o = o + 1




End If
Next


Sheet18.Select


End Sub

خطوط فرمان کد شمارو تغییر دادم بر اساس سطر و ستون های فایل اصلی
کد کار نکرد
خطایی نمیده ولی کارهم نمیکنه


ممنون میشم راهنمایی بفرمایید