Copy and paste a certain range ( total 3 rows) based on the value of different cells

[manojrf]

Hi everyone,

Appreciate if anyone could help me with the macro that I have. When I use this, sometimes the process of copying and pasting becomes more than once ( 2 or 3 times).

'Accounts opened

Sheets("DATA").Select
If Range("AB81").Value > 0 Then
Sheets("Accounts opened").Range("A1:E1").Copy
Worksheets("Accounts opened").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False
Else
End If


'Accounts closed

Sheets("DATA").Select
If Range("Z89").Value > 0 Then
Sheets("Accounts closed").Range("A1:E1").Copy
Worksheets("Accounts closed").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False
End If

Sheets("DATA").Select
If Range("Z90").Value > 0 Then
Sheets("Accounts closed").Range("A2:E2").Copy
Worksheets("Accounts closed").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False
End If

Sheets("DATA").Select
If Range("Z91").Value > 0 Then
Sheets("Accounts closed").Range("A3:E3").Copy
Worksheets("Accounts closed").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False

Else

End If

Please help me out. Thank you