Кто сможет?

Sub zadacha1()
Dim A() As Double
Dim sum As Integer, sum1 As Integer, k As Integer
Dim i As Integer, j As Integer, n As Integer, m As Integer
n = Selection.Rows.Count
m = Selection.Columns.Count
ReDim A(n, m)
 For i = 1 To n
  For j = 1 To m
   A(i, j) = Selection.Cells(i, j).Value
  Next
 Next
k = 0
sum = 0
For i = 1 To n
 For j = 1 To m
  If (A(i, j) < 4 And A(i, j) > -1) Then
  sum = sum + A(i, j)
  End If
  If A(i, j) > 1 Then
  k = k + 1
  End If
  If Abs(A(i, j)) < 5 Then
  sum1 = sum1 + A(i, j)
  End If
 Next
Next
Worksheets("Лист2").Select
Cells(1, 1) = sum
Cells(1, 2) = sum1
Cells(1, 3) = k
End Sub

sum1=sum1+Abs(A(i,j))

Sub zadacha4()
Dim B() As Double
Dim D() As Double
m = Val(InputBox("Введите количество строк или столбцов"))
ReDim B(m)
ReDim D(m)
For i = 1 To m
 B(i) = Selection.Cells(i).Value
Next
For i = 1 To m
 If i Mod 2 = 0 Then
  D(i) = B(i) * 2
 Else: D(i) = 0
 End If
Next
Worksheets(Лист2").Select
For i = 1 To m
 Cells(i) = D(i)
Next
End Sub